|
%I #2 Mar 31 2012 13:20:28
%S 239087,29194283,13459558559,2330212120559,591302115428891,
%T 1475383481009147,6659290813076243,78234869090622611,
%U 134532153287171039,1936272192837757871,12491376574210826183,25493310333833042507
%N Primes in A122209[n].
%C 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,...}.
%F a(n) = A122209[ A122211(n) ] = A024450[ A122211(n)^2 ].
%t 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}]
%Y Cf. A122209, A122211, A024450, A098561, A098562.
%K nonn
%O 1,1
%A _Alexander Adamchuk_, Aug 26 2006
|
