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,2

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

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

Cf. A055683.

Sequence in context: A056838 A045922 A258049 * A156625 A259280 A186388

Adjacent sequences: A057349 A057350 A057351 * A057353 A057354 A057355

Keyword

nonn

Author

Robert G. Wilson v, Sep 22 2000

Status

approved