|
|
COMMENTS
| Sum of squares of the first n^2 primes is A122209[n] = A024450[n^2] = {4,87,1556,13275,65796,239087,710844,1789395,4083404,8384727,16156884,29194283,...}. Corresponding numbers n such that A122209[n] is prime are listed in A122211[n] = {6,12,30,66,156,180,228,336,366,558,750,840,894,978,...}.
|
|
|
MATHEMATICA
| s=0; Do[p=Prime[n]; k=Sqrt[n]; s=s+p*p; If[PrimeQ[s]&&IntegerQ[k], Print[{k, n, s}]], {n, 1, 10^7}]
|
