cp's OEIS Frontend

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.

A105352 Numbers of points on successive rings of the simple square lattice.

This page as a plain text file.
%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