|
|
A055683
|
|
Number of Gaussian primes (in the first half-quadrant; i.e., 0 to 45 degrees) with real part < 10^n.
|
|
3
|
|
|
|
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
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|