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 A105352 #17 Oct 08 2017 23:46:30 %S A105352 1,4,4,4,8,4,4,8,8,4,8,4,8,12,8,8,4,8,4,8,8,8,8,4,12,8,8,8,8,4,16,8,4, %T A105352 8,8,8,4,8,16,8,8,8,4,12,8,8,8,8,8,8,8,4,8,16,4,16,8,8,4,16,8,8,8,8,8, %U A105352 8,4,8,12,16,8,8,8,8,16,8,8,4,8,12,8,16,8,8,8,16,12,8,8,8,8,8,8,4,8,8,16,4 %N A105352 Numbers of points on successive rings of the simple square lattice. %C A105352 This is A004018 with the zero terms omitted. %C A105352 a(n) = A004018(A001481(n)). - _Franz Vrabec_, Jun 14 2005 %H A105352 T. D. Noe, <a href="/A105352/b105352.txt">Table of n, a(n) for n = 1..10000</a> %e A105352 a(1) = 1 from (0, 0). %e A105352 a(2) = 4 from (0, 1), (0, -1), (1, 0), (-1, 0). %e A105352 a(5) = 8 from (+-1, +-2), (+-2, +-1). %t A105352 max = 100; A001481 = Select[Range[0, 4*max], SquaresR[2, #] != 0 &]; A004018[n_] := SquaresR[2, n]; a[n_] := A004018[A001481[[n]]]; Table[a[n], {n, 1, max}] (* _Jean-François Alcover_, Oct 04 2013, after _Franz Vrabec_ *) %Y A105352 Cf. A004018, A001481; A057961 (partial sums). %K A105352 nice,nonn %O A105352 1,2 %A A105352 _Sébastien Dumortier_, Apr 30 2005 %E A105352 Definition revised by _N. J. A. Sloane_, Oct 04 2013