|
%I #11 Feb 28 2017 22:59:30
%S 0,1,3,5,7,9,13,17,19,23,29,31,35,41,43,49,57,63,69,75,83,89,93,99,
%T 109,117,123,133,141,149,157,167,175,187,197,207,215,225,233,239,253,
%U 267,273,287,297,309,319,335,351,361,369,385,403,415,425,439,453,465,481,495
%N Number of strict Gaussian primes of norm less than or equal to n in the first quadrant.
%C A Gaussian integer is counted if it has a positive real part and a positive imaginary part (first quadrant excluding the axes).
%H T. D. Noe, <a href="/A228232/b228232.txt">Table of n, a(n) for n = 1..1000</a>
%t nn = 60; t = Select[Flatten[Table[a + b*I, {a, nn}, {b, nn}]], PrimeQ[#, GaussianIntegers -> True] &]; Table[Length[Select[t, Abs[#] <= n &]], {n, nn}] (* _T. D. Noe_, Aug 19 2013 *)
%Y Cf. A001182 (number of strict Gaussian integers in the first quadrant).
%Y Cf. A062711 (counts the Gaussian primes on axes also).
%Y Cf. A228233 (version of this sequence including the axes).
%K nonn
%O 1,3
%A _Olivier Gérard_, Aug 17 2013
|
