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

1, 2, 5, 14, 36, 112, 354, 1193, 4099, 14374, 51265, 185143, 675016, 2481768, 9183221, 34179072, 127826852

Offset

0,2

Links

Table of n, a(n) for n=0..16.

Mathematica

c = 1; lst = {}; Do[ Do[ If[ PrimeQ[j + k*I, GaussianIntegers -> True], c++], {j, 2^(n - 1) + 1, 2^n}, {k, 0, j}]; AppendTo[lst, c]; Print@ c, {n, 16}]

Crossrefs

Cf. A055683.

Sequence in context: A087223 A363106 A005955 * A062197 A030016 A248733

Adjacent sequences: A186900 A186901 A186902 * A186904 A186905 A186906

Keyword

nonn

Author

Robert G. Wilson v, Mar 02 2011

Status

approved