Create a function in R that returns a vector of all the perfect squares between $1$ and an

inputted value x $($inclusive$).$ Then find:

$($a$)$ all of the perfect squares between $1$ and $500$ as a vector