OFFSET
1,1
REFERENCES
Mark A. Herkommer, "Number Theory, A Programmer's Guide," McGraw-Hill, New York, 1999, page 269.
LINKS
MATHEMATICA
c=0; Do[ If[ PrimeQ[ j + k*I, GaussianIntegers -> True], c++ ], {j, 0, 10^n-1}, {k, 0, j} ]; c
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Robert G. Wilson v, Jun 09 2000
EXTENSIONS
Name corrected by Sean A. Irvine, Apr 02 2022
STATUS
approved