OFFSET
1,2
MAPLE
N:= 10000: # to get all terms <= N
{seq(2*i^2, i=0..floor(sqrt(N/2)))} union {seq(3*i^2, i=0..floor(sqrt(N/3)))};
# if using Maple 11 or earlier, uncomment the following line:
# sort(convert(%, list));
# Robert Israel, Oct 27 2014
PROG
(PARI) for(n=0, 5000, if(issquare(n/3)||issquare(n/2), print1(n, ", "))) \\ Derek Orr, Oct 26 2014
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
M. F. Hasler, Oct 26 2014
STATUS
approved