A022070 - OEIS

%I #13 Jul 14 2021 02:17:01

%S 1,0,0,0,34,0,0,0,544,0,0,0,5440,0,0,0,38114,131072,0,0,199104,0,0,0,

%T 808384,2228224,0,0,2641664,0,0,0,7213984,17825792,0,0,17215458,0,0,0,

%U 37569728,91357184,0,0,77129408,0,0,0,149405248,347602944,0,0

%N Theta series of D*_17 lattice.

%D J. H. Conway and N. J. A. Sloane, "Sphere Packings, Lattices and Groups", Springer-Verlag, p. 120.

%H Andy Huchala, <a href="/A022070/b022070.txt">Table of n, a(n) for n = 0..2000</a>

%e G.f. = 1 + 34*q^4 + 544*q^8 + ...

%o (Magma)

%o L := Dual(Lattice("D", 17));

%o B := Basis(ThetaSeriesModularFormSpace(L), 2005);

%o S := [1, 0, 0, 0, 34, 0, 0, 0, 544];

%o Coefficients(&+[B[i] * S[i] : i in [1..9]]); // _Andy Huchala_, Jul 13 2021

%K nonn

%O 0,5

%A _N. J. A. Sloane_

%E More terms from _Andy Huchala_, Jul 13 2021