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 A008400 #35 Dec 10 2023 16:07:42
%S A008400 1,73,1135,7831,34147,111835,301645,707365,1492669,2900773,5276899,
%T A008400 9093547,14978575,23746087,36430129,54321193,79005529,112407265,
%U A008400 156833335,215021215,290189467,386091091
%N A008400 Crystal ball sequence for E_6 lattice.
%D A008400 M. O'Keeffe, Coordination sequences for lattices, Zeit. f. Krist., 210 (1995), 905-908.
%H A008400 T. D. Noe, <a href="/A008400/b008400.txt">Table of n, a(n) for n = 0..1000</a>
%H A008400 J. H. Conway and N. J. A. Sloane, Low-Dimensional Lattices VII: Coordination Sequences, Proc. Royal Soc. London, A453 (1997), 2369-2389 (<a href="http://neilsloane.com/doc/Me220.pdf">pdf</a>).
%H A008400 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 A008400 M. O'Keeffe, <a href="/A008527/a008527.pdf">Coordination sequences for lattices</a>, Zeit. f. Krist., 210 (1995), 905-908. [Annotated scanned copy]
%H A008400 <a href="/index/Cor#crystal_ball">Index entries for crystal ball sequences</a>
%H A008400 <a href="/index/Rec#order_07">Index entries for linear recurrences with constant coefficients</a>, signature (7,-21,35,-35,21,-7,1).
%F A008400 a(n) = 1 + (3/20)*n*(n+1)*(26*n^4 + 52*n^3 + 73*n^2 + 47*n + 42).
%F A008400 G.f.: (1+66*x+645*x^2+1384*x^3+645*x^4+66*x^5+x^6)/(1-x)^7. - _Colin Barker_, Mar 16 2012
%F A008400 a(n) = 7*a(n-1) - 21*a(n-2) + 35*a(n-3) - 35*a(n-4) + 21*a(n-5) - 7*a(n-6) + a(n-7). - _Harvey P. Dale_, Feb 23 2015
%F A008400 E.g.f.: (1/20)*(20 + 1440*x + 9900*x^2 + 15480*x^3 + 7785*x^4 + 1404*x^5 + 78*x^6)*exp(x). - _G. C. Greubel_, May 30 2023
%p A008400 seq(39/10*n^6+117/10*n^5+75/4*n^4+18*n^3+267/20*n^2+63/10*n+1, n=0..35);
%t A008400 Table[39/10 n^6+117/10 n^5+75/4 n^4+18n^3+267/20 n^2+63/10 n+1, {n,0, 30}] (* or *) LinearRecurrence[{7,-21,35,-35,21,-7,1},{1,73,1135, 7831,34147,111835,301645},30] (* _Harvey P. Dale_, Feb 23 2015 *)
%o A008400 (PARI) a(n)=(78*n^6 + 234*n^5 + 375*n^4 + 360*n^3 + 267*n^2 + 126*n + 20)/20 \\ _Charles R Greathouse IV_, Feb 10 2017
%o A008400 (Magma) [1 +3*n*(n+1)*(26*n^4 +52*n^3 +73*n^2 +47*n +42)/20: n in [0..40]]; // _G. C. Greubel_, May 30 2023
%o A008400 (SageMath) [1 +3*n*(n+1)*(26*n^4 +52*n^3 +73*n^2 +47*n +42)//20 for n in range(41)] # _G. C. Greubel_, May 30 2023
%K A008400 nonn,easy,nice
%O A008400 0,2
%A A008400 _N. J. A. Sloane_ and _J. H. Conway_