[go: up one dir, main page]

login
A055683
Number of Gaussian primes (in the first half-quadrant; i.e., 0 to 45 degrees) with real part < 10^n.
3
15, 756, 48979, 3612920, 286272005
OFFSET
1,1
REFERENCES
Mark A. Herkommer, "Number Theory, A Programmer's Guide," McGraw-Hill, New York, 1999, page 269.
MATHEMATICA
c=0; Do[ If[ PrimeQ[ j + k*I, GaussianIntegers -> True], c++ ], {j, 0, 10^n-1}, {k, 0, j} ]; c
CROSSREFS
Sequence in context: A117812 A034941 A199227 * A196465 A177598 A333562
KEYWORD
nonn,more
AUTHOR
Robert G. Wilson v, Jun 09 2000
EXTENSIONS
Name corrected by Sean A. Irvine, Apr 02 2022
STATUS
approved