OFFSET
1,1
COMMENTS
EXAMPLE
49 is in the sequence since 49 = 7^2 (the square of an odd prime). 18 is in the sequence since 18 = 2*3^2 (twice the square of an odd prime).
MATHEMATICA
max = 13778; Union[Prime[Range[2, PrimePi[Sqrt[max]]]]^2, 2Prime[Range[2, PrimePi[Sqrt[max/2]]]]^2] (* Alonso del Arte, Jul 04 2013 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Wesley Ivan Hurt, Jul 04 2013
EXTENSIONS
a(38) corrected by Georg Fischer, Aug 24 2023
STATUS
approved