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

Author

Robert G. Wilson v, Mar 02 2011

Keywords

• nonn

Crossrefs

Cf. A055683.

Programs

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}]