(MAGMAMagma) L:=Lattice("A", 6); T1<q> := ThetaSeries(L, 120);
(MAGMAMagma) L:=Lattice("A", 6); T1<q> := ThetaSeries(L, 120);
editing
approved
approved
editing
proposed
approved
editing
proposed
terms = 40; f[q_] = LatticeData["A6", "ThetaSeriesFunction"][-I Log[q]/Pi]; s = Series[f[q], {q, 0, 2 terms}]; DeleteCases[CoefficientList[s, q^(1/2) ] // Round, 0][[1 ;; terms]] (* Jean-François Alcover, Jul 04 2017 *)
approved
editing
_N. J. A. Sloane (njas(AT)research.att.com)_.
G. Nebe and N. J. A. Sloane, <a href="http://www.math.rwth-aachen.de/~Gabriele.Nebe/LATTICES/A6.html">Home page for this lattice</a>
nonn,easy,nice,new
G. Nebe and N. J. A. Sloane, <a href="http://www.researchmath.attrwth-aachen.comde/~njasGabriele.Nebe/latticesLATTICES/A6.html">Home page for this lattice</a>
nonn,easy,nice,new
nonn,easy,nice,new
N. J. A. Sloane (njas(AT)research.att.com).