OFFSET
1,2
COMMENTS
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 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Martin Renner, Oct 23 2012
STATUS
approved