This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A228234 #10 Feb 28 2017 22:59:30 %S A228234 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 A228234 59,62,67,71,75,79,84,88,94,99,104,108,113,117,120,127,134,137,144, %U A228234 149,155,160,168,176,181,185,193,202,208,213,220,227,233,241,248,256 %N A228234 Number of strict Gaussian primes of norm less than or equal to n in the first quadrant on or below the first diagonal. %C A228234 Strict means that one does not include the ordinary integer primes and integer primes multiplied by i. %C A228234 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 A228234 T. D. Noe, <a href="/A228234/b228234.txt">Table of n, a(n) for n = 1..1000</a> %t A228234 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 A228234 Cf. A211340 (number of strict Gaussian integers in this half-quadrant). %Y A228234 Cf. A228235 (a version of this sequence including the real axis). %Y A228234 Cf. A228232, A228233 (versions counting the whole first quadrant). %K A228234 nonn %O A228234 1,3 %A A228234 _Olivier Gérard_, Aug 17 2013