A057352 Number of Gaussian primes (in the first half-quadrant; i.e., 0 to 45 degrees) with real part <= n.

1, 2, 4, 5, 7, 9, 11, 14, 15, 19, 22, 23, 27, 30, 33, 36, 40, 43, 48, 54, 56, 60, 66, 69, 76, 82, 86, 90, 94, 98, 106, 112, 117, 123, 131, 136, 142, 149, 152, 161, 166, 171, 180, 188, 195, 204, 211, 218, 228, 236

Offset: 1

Author

Robert G. Wilson v, Sep 22 2000

Keywords

• nonn

References

• Mark A. Herkommer, "Number Theory, A Programmer's Guide," McGraw-Hill, New York, 1999, page 269.

Links

• T. D. Noe, Table of n, a(n) for n=1..10000
• Index entries for Gaussian integers and primes

Crossrefs

Cf. A055683.

Programs

Mathematica

c = 0; Do[ Do[ If[ PrimeQ[ j + k*I, GaussianIntegers -> True ], c++ ], {j, n, n}, {k, 0, j} ]; Print[ c ], {n, 1, 50} ]