%I #19 Apr 03 2022 01:30:02

%S 15,756,48979,3612920,286272005

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

%D Mark A. Herkommer, "Number Theory, A Programmer's Guide," McGraw-Hill, New York, 1999, page 269.

%H <a href="/index/Ga#gaussians">Index entries for Gaussian integers and primes</a>

%H <a href="/index/Pri#primepop">Index entries for sequences related to numbers of primes in various ranges</a>

%t c=0; Do[ If[ PrimeQ[ j + k*I, GaussianIntegers -> True], c++ ], {j, 0, 10^n-1}, {k, 0, j} ]; c

%K nonn,more

%O 1,1

%A _Robert G. Wilson v_, Jun 09 2000

%E Name corrected by _Sean A. Irvine_, Apr 02 2022