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

%I #8 Jul 16 2017 20:59:01

%S 1,2,5,14,36,112,354,1193,4099,14374,51265,185143,675016,2481768,

%T 9183221,34179072,127826852

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

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

%Y Cf. A055683.

%K nonn

%O 0,2

%A _Robert G. Wilson v_, Mar 02 2011