

A057352


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


2



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
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,2


REFERENCES

Mark A. Herkommer, "Number Theory, A Programmer's Guide," McGrawHill, 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



