A218213 Number of n-digit primes representable as sums of consecutive squares.
1, 4, 13, 30, 69, 187, 519, 1401, 3889, 10861, 31640, 90735
Offset: 1
Programs
-
Mathematica
nn = 8; nMax = 10^nn; t = Table[0, {nn}]; Do[k = n; s = 0; While[s = s + k^2; s <= nMax, If[PrimeQ[s], t[[Ceiling[Log[10, s]]]]++]; k++], {n, Sqrt[nMax]}]; t (* T. D. Noe, Oct 23 2012 *)
Comments