OFFSET
1,1
MATHEMATICA
n = -1; Table[cnt = 0; While[n++; p = 3*n^2 + 2; p < 10^e, If[PrimeQ[p], cnt++]]; n--; cnt, {e, 10}] (* T. D. Noe, Oct 23 2012 *)
Table[Count[Table[Total[Range[n, n+2]^2], {n, -1, 600000}], _?(PrimeQ[#] && IntegerLength[#]==k&)], {k, 12}] (* Harvey P. Dale, Oct 17 2016 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Martin Renner, Oct 23 2012
STATUS
approved