A228234 - OEIS

%I #10 Feb 28 2017 22:59:30

%S 0,1,2,3,4,5,7,9,10,12,15,16,18,21,22,25,29,32,35,38,42,45,47,50,55,

%T 59,62,67,71,75,79,84,88,94,99,104,108,113,117,120,127,134,137,144,

%U 149,155,160,168,176,181,185,193,202,208,213,220,227,233,241,248,256

%N Number of strict Gaussian primes of norm less than or equal to n in the first quadrant on or below the first diagonal.

%C Strict means that one does not include the ordinary integer primes and integer primes multiplied by i.

%C In the first quadrant and on or below the first diagonal, means here that the imaginary part is positive and inferior or equal to the real part.

%H T. D. Noe, <a href="/A228234/b228234.txt">Table of n, a(n) for n = 1..1000</a>

%t nn = 100; t = Select[Flatten[Table[a + b*I, {a, nn}, {b, a, nn}]], PrimeQ[#, GaussianIntegers -> True] &]; t2 = Table[0, {nn}]; Do[f = Ceiling[Abs[i]]; If[f <= nn, t2[[f]]++], {i, t}]; Accumulate[t2] (* _T. D. Noe_, Aug 19 2013 *)

%Y Cf. A211340 (number of strict Gaussian integers in this half-quadrant).

%Y Cf. A228235 (a version of this sequence including the real axis).

%Y Cf. A228232, A228233 (versions counting the whole first quadrant).

%K nonn

%O 1,3

%A _Olivier Gérard_, Aug 17 2013