%I #4 Mar 08 2014 08:28:05
%S 4,38,1556,86606,4083404,171658094,6716224724,247782290006,
%T 8763080657420,299863491723614,9990667099305740,325847250824377382,
%U 10445562407382412028,330039152364735149222,10301457052184951857604,318211810358946705058382
%N Sum of the squares of the first 3^n primes.
%e The sum of the squares of the first 3^1 primes = 4+9+25 = 38, the second entry in the sequence.
%t nn=15;With[{prsq=Prime[Range[3^nn]]^2},Table[Total[Take[prsq,3^n]],{n,0,nn}]] (* _Harvey P. Dale_, Mar 08 2014 *)
%o (PARI) sumprimesq(n,b) = { local(x,y,s,a); for(y=0,n, s=0; for(x=1,b^y, s+=prime(x)^2; ); print1(s","); ) }
%K nonn
%O 0,1
%A _Cino Hilliard_, Aug 30 2007
%E More terms from _Harvey P. Dale_, Mar 08 2014
|