A122211 Numbers k such that the sum of squares of the first k^2 primes is a prime.
6, 12, 30, 66, 156, 180, 228, 336, 366, 558, 750, 840, 894, 978, 1398, 1410, 1506, 1560, 1578, 1662, 1794, 1800, 1812, 1824, 1890, 1992, 2094, 2268, 2334, 2358, 2430, 2604, 2736, 2742, 2766, 2802, 2856, 2922, 3042, 3312, 3390, 3702, 3948, 3954, 3984, 4170, 4314
Offset: 1
Keywords
Programs
-
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}]
Extensions
More terms from Jinyuan Wang, Mar 23 2020
Comments