|
%I #7 Jul 24 2021 01:08:13
%S 1,0,432,1824,8100,21280,46030,95904,185276,265120,509976,735200,
%T 1031016,1555200,2311880,2645984,4216860,5200000,6396192,8592480,
%U 11519624,12022560,17652168,20269184,23363450,29522880,37500080,37249728,52312392,57561120,63690384
%N Theta series of lattice Kappa_11.
%D J. H. Conway and N. J. A. Sloane, "Sphere Packings, Lattices and Groups", Springer-Verlag, p. 161.
%H Andy Huchala, <a href="/A015229/b015229.txt">Table of n, a(n) for n = 0..1250</a>
%e G.f. = 1 + 432*q^4 + 1824*q^6 + ...
%o (Magma)
%o L := (Lattice("Kappa", 11));
%o B := Basis(ThetaSeriesModularFormSpace(L), 50);
%o S := [1, 0, 432, 1824, 8100, 21280, 46030, 95904, 185276, 265120, 509976, 735200, 1031016, 1555200, 2311880, 2645984, 4216860, 5200000, 6396192, 8592480, 11519624];
%o Coefficients(&+[B[i] * S[i] : i in [1..21]]); // _Andy Huchala_, Jul 23 2021
%K nonn
%O 0,3
%A _N. J. A. Sloane_
%E More terms from _Andy Huchala_, Jul 23 2021
|
