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 A023917 #20 Jul 08 2025 17:22:18
%S A023917 1,0,0,0,0,12,0,0,30,20,0,0,30,0,0,0,0,120,0,0,132,60,0,0,90,0,0,0,0,
%T A023917 180,0,0,270,180,0,0,140,0,0,0,0,480,0,0,420,132,0,0,270,0,0,0,0,420,
%U A023917 0,0,600,420,0,0,360,0,0,0,0,960,0,0,840,360,0,0,330,0,0,0,0
%N A023917 Theta series of A*_5 lattice.
%C A023917 Expansion of Ahlgren's F_6(q^2).
%D A023917 J. H. Conway and N. J. A. Sloane, "Sphere Packings, Lattices and Groups", Springer-Verlag, p. 114.
%H A023917 John Cannon, <a href="/A023917/b023917.txt">Table of n, a(n) for n = 0..10000</a>
%H A023917 S. Ahlgren, <a href="https://dx.doi.org/10.1090/S0002-9939-99-05181-3">The sixth, eighth, ninth and tenth powers of Ramanujan's theta function</a>, Proc. Amer. Math. Soc., 128 (2000), 1333-1338.
%H A023917 G. Nebe and N. J. A. Sloane, <a href="http://www.math.rwth-aachen.de/~Gabriele.Nebe/LATTICES/As5.html">Home page for this lattice</a>
%e A023917 1 + 12*q^5 + 30*q^8 + 20*q^9 + 30*q^12 + 120*q^17 + 132*q^20 + 60*q^21 + 90*q^24 + 180*q^29 + 270*q^32 + 180*q^33 + 140*q^36 + 480*q^41 + 420*q^44 + 132*q^45 + 270*q^48 + 420*q^53 + 600*q^56 + 420*q^57 + 360*q^60 + O(q^61)
%t A023917 terms = 77; phi[q_] := EllipticTheta[3, 0, q]; F6[q_] := (1/32)*(-3*phi[Sqrt[q]]^5 + 5*phi[Sqrt[q]]^3*phi[Sqrt[q^3]]^2 + 15*phi[Sqrt[q]] * phi[Sqrt[q^3]]^4 + (15*phi[Sqrt[q^3]]^6)/phi[Sqrt[q]]); s = Simplify[F6[q^2], q>0]; s = s + O[q]^(2 terms); CoefficientList[s, q][[1 ;; terms]] (* _Jean-François Alcover_, Jul 04 2017 *)
%o A023917 (Magma) L:=Lattice("A",5); D:=Dual(L); T1<q> := ThetaSeries(D,120);
%K A023917 nonn
%O A023917 0,6
%A A023917 _N. J. A. Sloane_