A227279 Squares of odd primes and twice squares of odd primes.
9, 18, 25, 49, 50, 98, 121, 169, 242, 289, 338, 361, 529, 578, 722, 841, 961, 1058, 1369, 1681, 1682, 1849, 1922, 2209, 2738, 2809, 3362, 3481, 3698, 3721, 4418, 4489, 5041, 5329, 5618, 6241, 6889, 6962, 7442, 7921, 8978, 9409, 10082, 10201, 10609, 10658, 11449, 11881, 12482, 12769, 13778
Offset: 1
Examples
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).
Programs
-
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 *)
Extensions
a(38) corrected by Georg Fischer, Aug 24 2023
Comments