A055683 Number of Gaussian primes (in the first half-quadrant; i.e., 0 to 45 degrees) with real part < 10^n.
15, 756, 48979, 3612920, 286272005
Offset: 1
References
- Mark A. Herkommer, "Number Theory, A Programmer's Guide," McGraw-Hill, New York, 1999, page 269.
Links
Programs
-
Mathematica
c=0; Do[ If[ PrimeQ[ j + k*I, GaussianIntegers -> True], c++ ], {j, 0, 10^n-1}, {k, 0, j} ]; c
Extensions
Name corrected by Sean A. Irvine, Apr 02 2022