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 A030443 #19 Jul 08 2025 19:33:21
%S A030443 1,56,126,576,756,1512,2072,4032,4158,5544,7560,12096,11592,13664,
%T A030443 16704,24192,24948,27216,31878,44352,39816,41832,55944,72576,66584,
%U A030443 67536,76104,100800,99792,101304,116928,145728,133182,126504,160272,205632,177660,176456,205128,249984,249480,234360
%N A030443 Nonzero coefficients in theta series of {E_7}* lattice.
%C A030443 In the Eichler and Zagier reference this is e_4(A014601(n)), n >= 0, (p. 141), where e_4 is obtained from e_{4,1}(n,r), eq. (7), p. 22, depending only on 4*n-r^2 >= 0 (for integers n and r), i.e. on A014601(n), n >= 0 (with a new notation for n). - _Wolfdieter Lang_, Jan 08 2016
%D A030443 J. H. Conway and N. J. A. Sloane, "Sphere Packings, Lattices and Groups", Springer-Verlag, p. 125.
%D A030443 M. Eichler and D. Zagier, The Theory of Jacobi Forms, Birkhäuser, 1985, p. 141.
%H A030443 N. Elkies and B. H. Gross, <a href="http://dx.doi.org/10.2140/pjm.1997.181.147">Embeddings into the integral octonions, Olga Taussky-Todd: in memoriam</a>, Pacific J. Math. 1997, Special Issue, 147-158.
%o A030443 (PARI) f(n) = local(A); if( n<0, 0, A = sum(k=1, sqrtint(n), 2 * x^k^2, 1 + x * O(x^n)); polcoeff( A^3 * (A^4 + 7 * subst(A, x, -x)^4) / 8, n)); \\ A003781
%o A030443 lista(nn) = select(x->(x>0), vector(nn, k, f(k-1))); \\ _Michel Marcus_, Nov 11 2023
%Y A030443 Cf. A003781.
%K A030443 nonn
%O A030443 0,2
%A A030443 _N. J. A. Sloane_
%E A030443 More terms from _Michel Marcus_, Nov 11 2023