|
|
A131591
|
|
Sum of the squares of the first 3^n primes.
|
|
1
|
|
|
4, 38, 1556, 86606, 4083404, 171658094, 6716224724, 247782290006, 8763080657420, 299863491723614, 9990667099305740, 325847250824377382, 10445562407382412028, 330039152364735149222, 10301457052184951857604, 318211810358946705058382
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,1
|
|
LINKS
|
|
|
FORMULA
|
|
|
EXAMPLE
|
The sum of the squares of the first 3^1 primes is 4 + 9 + 25 = 38, the second term of this 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", "); ) }
(PARI) lista(pmax) = {my(sm = 0, c = 0, pow = 1); forprime(p = 1, pmax, sm += p^2; c++; if(c == pow, print1(sm, ", "); pow *= 3)); } \\ Amiram Eldar, Jul 06 2024
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|