# Divisible by 7 and less than 50

# set up base vector

base_vector<-15:83

# set up vector sevens

sevens<-NULL

# set up loop

for (i in seq(base_vector)){
  
# set up if statement for divisible by 7

  if (base_vector[i]%%7==0){
    sevens<-c(sevens,base_vector[i])
    print(base_vector[i])
  }
# set up if statement to break out if 50 or above
  if (base_vector[i]>=50) break
}