%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