A248373 Partial sums of primes of form n^2 + (n+1)^2 + (n+2)^2 (A027864).

5, 34, 183, 692, 1369, 3246, 6923, 15352, 25101, 37010, 50479, 68268, 90977, 118054, 146283, 191672, 238549, 291618, 361847, 433924, 515601, 616070, 718747, 832824, 961373, 1102642, 1257231, 1437308, 1629337, 1824414, 2031923, 2255512, 2485701, 2746778, 3059767

Offset

1,1

Links

Harvey P. Dale, Table of n, a(n) for n = 1..1000

Mathematica

f[x_]:=x^2+(x+1)^2+(x+2)^2;
n=50; result={}; counter=0; number=0;
While[counter<n, value=f[number];
If[PrimeQ[value]==True, AppendTo[result, value]; counter=counter+1];
number=number+1]; sumresult={}; sum=0; index = 1;
While[index<=n, sum=sum+result[[index]]; AppendTo[sumresult, sum]; index=index+1]; sumresult
Accumulate[Select[Total/@Partition[Range[0, 400]^2, 3, 1], PrimeQ]] (* Harvey P. Dale, Nov 24 2017 *)

Prog

(PARI) lista(nn) = {s = 0; for (n=0, nn, if (isprime(p=n^2 + (n+1)^2 + (n+2)^2), s +=p; print1(s, ", ")); ); } \\ Michel Marcus, Oct 06 2014

Crossrefs

Cf. A027864.

Sequence in context: A167023 A316559 A284850 * A121831 A076708 A353097

Adjacent sequences: A248370 A248371 A248372 * A248374 A248375 A248376

Keyword

nonn

Author

Michael Savoric, Oct 05 2014

Status

approved