%I #8 Jul 14 2021 04:27:40
%S 1,0,0,0,62,0,0,0,1860,0,0,0,35960,0,0,0,503502,0,0,0,5440872,0,0,0,
%T 47229864,0,0,0,338599360,0,0,2147483648,2046701220,0,0,0,10604798246,
%U 0,0,66571993088,47775740520,0,0,0,189619489320,0,0,998579896320
%N Theta series of D*_31 lattice.
%D J. H. Conway and N. J. A. Sloane, "Sphere Packings, Lattices and Groups", Springer-Verlag, p. 120.
%H Andy Huchala, <a href="/A022084/b022084.txt">Table of n, a(n) for n = 0..1510</a>
%e G.f. = 1 + 62*q^4 + 1860*q^8 + ...
%o (Magma)
%o L := Dual(Lattice("D", 31));
%o B := Basis(ThetaSeriesModularFormSpace(L), 70);
%o S := [1, 0, 0, 0, 62, 0, 0, 0, 1860, 0, 0, 0, 35960, 0, 0, 0];
%o Coefficients(&+[B[i] * S[i] : i in [1..16]]); // _Andy Huchala_, Jul 14 2021
%K nonn
%O 0,5
%A _N. J. A. Sloane_
%E More terms from _Andy Huchala_, Jul 14 2021
|