# create vector to be investigated

base_vector<-17:90

# create  blank vector ready to put things into

threes<-NULL

# display values of base_vector

base_vector

# loop through all values of base_vector

for (i in seq(base_vector)) {
  
  #print(i)
  #print(base_vector[i])
  
# check if number is divisible by 3 with no remainder
# if it is, add it on to threes
  
#  if (base_vector[i]%%3==0) print(base_vector[i])
  
  if (base_vector[i]%%3==0) {
    threes<-c(threes,base_vector[i])
    print(base_vector[i])
  }
}

# display threes

#threes