A131591 Sum of the squares of the first 3^n primes.

4, 38, 1556, 86606, 4083404, 171658094, 6716224724, 247782290006, 8763080657420, 299863491723614, 9990667099305740, 325847250824377382, 10445562407382412028, 330039152364735149222, 10301457052184951857604, 318211810358946705058382

Offset

0,1

Links

Table of n, a(n) for n=0..15.

Example

The sum of the squares of the first 3^1 primes = 4+9+25 = 38, the second entry in the sequence.

Mathematica

nn=15; With[{prsq=Prime[Range[3^nn]]^2}, Table[Total[Take[prsq, 3^n]], {n, 0, nn}]] (* Harvey P. Dale, Mar 08 2014 *)

Prog

(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", "); ) }

Crossrefs

Sequence in context: A001187 A093377 A178017 * A030259 A218710 A286877

Adjacent sequences: A131588 A131589 A131590 * A131592 A131593 A131594

Keyword

nonn

Author

Cino Hilliard, Aug 30 2007

Extensions

More terms from Harvey P. Dale, Mar 08 2014

Status

approved