A186903 - OEIS

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

(list; graph; refs; listen; history; text; internal format)

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