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 A008422 #26 Feb 16 2025 08:32:32
%S A008422 1,0,0,0,10,32,0,0,40,0,0,0,80,160,0,0,90,0,0,0,112,320,0,0,240,0,0,0,
%T A008422 320,480,0,0,200,0,0,0,250,800,0,0,560,0,0,0,560,992,0,0,400,0,0,0,
%U A008422 560,1120,0,0,800,0,0,0,960,1760,0,0,730,0,0,0,480,1920,0,0,1240,0,0,0,1520,1920
%N A008422 Theta series of D*_5 lattice.
%C A008422 Ramanujan theta functions: f(q) := Prod_{k>=1} (1-(-q)^k) (see A121373), phi(q) := theta_3(q) := Sum_{k=-oo..oo} q^(k^2) (A000122), psi(q) := Sum_{k=0..oo} q^(k*(k+1)/2) (A010054), chi(q) := Prod_{k>=0} (1+q^(2k+1)) (A000700).
%D A008422 J. H. Conway and N. J. A. Sloane, "Sphere Packings, Lattices and Groups", Springer-Verlag, p. 120, Eq. 96.
%H A008422 N. J. A. Sloane, <a href="/A008422/b008422.txt">Table of n, a(n) for n = 0..800</a>
%H A008422 G. Nebe and N. J. A. Sloane, <a href="http://www.math.rwth-aachen.de/~Gabriele.Nebe/LATTICES/Ds5.html">Home page for this lattice</a>
%H A008422 Michael Somos, <a href="/A010815/a010815.txt">Introduction to Ramanujan theta functions</a>
%H A008422 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/RamanujanThetaFunctions.html">Ramanujan Theta Functions</a>
%F A008422 Theta series in terms of Jacobi theta series: (theta_2)^5 + (theta_3)^5.
%F A008422 Expansion of phi(q^4)^5 + ( 2 * q * psi(q^8) )^5 in powers of q where phi(), psi() are Ramanujan theta functions. - _Michael Somos_, Sep 17 2007
%t A008422 terms = 78; phi[q_] := EllipticTheta[3, 0, q]; chi[q_] := ((1 - InverseEllipticNomeQ[q])*InverseEllipticNomeQ[q]/(16*q))^(-1/24); psi[q_] := (1/2)*q^(-1/8)*EllipticTheta[2, 0, q^(1/2)]; s = phi[q^4]^5 + (2*q*psi[q^8])^5 + O[q]^terms; CoefficientList[s, q] (* _Jean-François Alcover_, Jul 04 2017, after _Michael Somos_ *)
%o A008422 (PARI)
%o A008422 N=66; q='q+O('q^N);
%o A008422 T3(q) = eta(q^2)^5 / ( eta(q)^2 * eta(q^4)^2 );
%o A008422 T2(q) = eta(q^4)^2 / eta(q^2);
%o A008422 Vec( T3(q^4)^5 + (2 * q * T2(q^4))^5 )
%o A008422 \\ _Joerg Arndt_, Mar 30 2018
%K A008422 nonn,easy
%O A008422 0,5
%A A008422 _N. J. A. Sloane_