OFFSET
1,1
LINKS
Eric Weisstein's World of Mathematics, Gaussian Prime
MATHEMATICA
Table[lim2=10^n; lim1=Floor[Sqrt[lim2]]; cnt=0; Do[If[x^2+y^2<lim2&&PrimeQ[x+I y, GaussianIntegers->True], cnt++ ], {x, 0, lim1}, {y, 0, x}]; cnt, {n, 6}]
CROSSREFS
KEYWORD
nonn,more
AUTHOR
T. D. Noe, Dec 19 2003
EXTENSIONS
STATUS
approved