# Identify squares in a vector of numbers

# Set up base vector

base_vector<-1:150

# Set up target vector squares

squares<-NULL

# Set up loop

for (i in seq(base_vector)){

# Check if element is a square
# using if (sqrt(x)==(round(sqrt(x))))

  if (sqrt(base_vector[i])==(round(sqrt(base_vector[i])))){

  # Copy element to squares 
    squares<-c(squares,base_vector[i])
  }
}

squares