Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the 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