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 A008531 #37 Dec 10 2023 16:12:57
%S A008531 1,10,50,150,340,650,1110,1750,2600,3690,5050,6710,8700,11050,13790,
%T A008531 16950,20560,24650,29250,34390,40100,46410,53350,60950,69240,78250,
%U A008531 88010,98550,109900,122090,135150,149110,164000,179850,196690,214550,233460,253450
%N A008531 Coordination sequence for {A_4}* lattice.
%C A008531 Coordination sequence for 4-dimensional cyclotomic lattice Z[zeta_10].
%D A008531 M. O'Keeffe, Coordination sequences for lattices, Zeit. f. Krist., 210 (1995), 905-908.
%H A008531 Vincenzo Librandi, <a href="/A008531/b008531.txt">Table of n, a(n) for n = 0..1000</a>
%H A008531 M. Beck and S. Hosten, <a href="http://arxiv.org/abs/math/0508136">Cyclotomic polytopes and growth series of cyclotomic lattices</a>, arXiv:math/0508136 [math.CO], 2005-2006.
%H A008531 M. O'Keeffe, <a href="http://dx.doi.org/10.1524/zkri.1995.210.12.905">Coordination sequences for lattices</a>, Zeit. f. Krist., 210 (1995), 905-908.
%H A008531 M. O'Keeffe, <a href="/A008527/a008527.pdf">Coordination sequences for lattices</a>, Zeit. f. Krist., 210 (1995), 905-908. [Annotated scanned copy]
%H A008531 <a href="/index/Rec#order_04">Index entries for linear recurrences with constant coefficients</a>, signature (4,-6,4,-1).
%F A008531 G.f.: (1 +6*x +16*x^2 +6*x^3 +x^4)/(1-x)^4. - _Colin Barker_, Sep 21 2012
%F A008531 E.g.f.: 1 + x*(10 + 15*x + 5*x^2)*exp(x). - _G. C. Greubel_, Nov 10 2019
%p A008531 1, seq( 5*k^3+5*k, k=1..40);
%t A008531 CoefficientList[Series[(1 +6x +16x^2 +6x^3 +x^4)/(1-x)^4, {x, 0, 50}], x] (* _Vincenzo Librandi_, Oct 15 2013 *)
%t A008531 LinearRecurrence[{4,-6,4,-1},{1,10,50,150,340},40] (* _Harvey P. Dale_, Jun 09 2016 *)
%o A008531 (PARI) a(n)=5*n*(n^2+1) \\ _Charles R Greathouse IV_, Mar 08 2013
%o A008531 (Magma) [1] cat [5*n*(1+n^2): n in [1..45]]; // _G. C. Greubel_, Nov 10 2019
%o A008531 (Sage) [1]+[5*n*(1+n^2) for n in (1..45)] # _G. C. Greubel_, Nov 10 2019
%o A008531 (GAP) Concatenation([1], List([1..45], n-> 5*n*(1+n^2))); # _G. C. Greubel_, Nov 10 2019
%Y A008531 Cf. A222408.
%K A008531 nonn,easy
%O A008531 0,2
%A A008531 _N. J. A. Sloane_