A218210 Number of primes up to 10^n that are of the form (k-2)^2 + (k-1)^2 + k^2.
2, 3, 6, 10, 22, 53, 139, 369, 1050, 2984, 8618, 24390
Offset: 1
Programs
-
Mathematica
n = -1; cnt = 0; Do[While[n++; p = 3*n^2 + 2; p < 10^e, If[PrimeQ[p], cnt++]]; n--; cnt, {e, 10}] (* T. D. Noe, Oct 23 2012 *)
Formula
a(n) = sum(A218209(k), k=1..n)
Comments