OFFSET
1,2
REFERENCES
Mark A. Herkommer, "Number Theory, A Programmer's Guide," McGraw-Hill, New York, 1999, page 269.
MATHEMATICA
c = 0; Do[ Do[ If[ PrimeQ[ j + k*I, GaussianIntegers -> True ], c++ ], {j, n, n}, {k, 0, j} ]; Print[ c ], {n, 1, 50} ]
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Sep 22 2000
STATUS
approved