|
%I #14 Jul 14 2021 02:17:35
%S 1,0,0,0,30,0,0,0,420,0,0,0,3640,0,0,32768,21870,0,0,0,96936,0,0,
%T 491520,331240,0,0,0,911040,0,0,3440640,2128260,0,0,0,4495430,0,0,
%U 15400960,8972712,0,0,0,16946280,0,0,51609600,29822520,0,0,0,49476840,0,0
%N Theta series of D*_15 lattice.
%D J. H. Conway and N. J. A. Sloane, Sphere Packings, Lattices and Groups, Springer-Verlag, p. 120.
%H Andy Huchala, <a href="/A022068/b022068.txt">Table of n, a(n) for n = 0..2000</a>
%e G.f. = 1 + 30*q^4 + 420*q^8 + ...
%o L := Dual(Lattice("D", 15));
%o B := Basis(ThetaSeriesModularFormSpace(L), 20);
%o S := [1, 0, 0, 0, 30, 0, 0, 0];
%o Coefficients(&+[B[i] * S[i] : i in [1..8]]); // _Andy Huchala_, Jul 13 2021
%K nonn
%O 0,5
%A _N. J. A. Sloane_
%E More terms from _Andy Huchala_, Jul 13 2021
|
