OFFSET
1,2
MATHEMATICA
n = 0; Table[cnt = 0; While[n++; p = 2*n^2 - 2*n + 1; p < 10^e, If[PrimeQ[p], cnt++]]; n--; cnt, {e, 10}] (* T. D. Noe, Oct 23 2012 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Martin Renner, Oct 23 2012
STATUS
approved