A288776 Theta series of the 24-dimensional lattice of hyper-roots E_5(SU(3)).
1, 0, 0, 512, 11232, 145920, 1055616, 5618688, 25330128, 89127936, 295067136, 810542592, 2185379968, 5109275136, 11899724544, 24646120448, 51701896272, 97674279936, 188911940608, 331864693248, 602050989120, 997987350528, 1717717782144, 2714582258688
Offset: 0
Keywords
Links
- Robert Coquereaux, Theta functions for lattices of SU(3) hyper-roots, arXiv:1708.00560 [math.QA], 2017.
- P. Di Francesco and J.-B. Zuber, SU(N) lattice integrable models associated with graphs, Nucl. Phys., B 338, pp 602--646, (1990). See also.
- A. Ocneanu, The Classification of subgroups of quantum SU(N), in "Quantum symmetries in theoretical physics and mathematics", Bariloche 2000, Eds. R. Coquereaux, A. Garcia. and R. Trinchero, AMS Contemporary Mathematics, 294, pp. 133-160, (2000). End of Sec 2.5.
Crossrefs
Programs
-
Magma
prec := 20; gram := [[6,0,0,0,0,0,2,0,0,0,2,0,-2,0,1,1,0,2,-2,2,2,0,-2,2],[0,6,0,0,0,0,0,2,0,0,0,2,0,-2,1,1,2,0,2,-2,0,2,2,-2],[0,0,6,0,2,0,2,2,2,0,2,2,1,1,0,2,-2,2,2,0,-2,2,0,2],[0,0,0,6,0,2,2,2,0,2,2,2,1,1,2,0,2,-2,0,2,2,-2,2,0],[0,0,2,0,6,0,0,0,0,0,0,2,0,0,2,0,-2,0,1,1,0,0,0,2],[0,0,0,2,0,6,0,0,0,0,2,0,0,0,0,2,0,-2,1,1,0,0,2,0],[2,0,2,2,0,0,6,0,2,0,2,2,2,0,2,2,1,1,0,2,2,0,2,2],[0,2,2,2,0,0,0,6,0,2,2,2,0,2,2,2,1,1,2,0,0,2,2,2],[0,0,2,0,0,0,2,0,6,0,0,0,0,0,2,0,0,0,2,0,-2,0,1,1],[0,0,0,2,0,0,0,2,0,6,0,0,0,0,0,2,0,0,0,2,0,-2,1,1],[2,0,2,2,0,2,2,2,0,0,6,0,2,0,2,2,0,2,2,2,1,1,0,2],[0,2,2,2,2,0,2,2,0,0,0,6,0,2,2,2,2,0,2,2,1,1,2,0],[-2,0,1,1,0,0,2,0,0,0,2,0,6,0,0,0,0,0,2,0,0,0,2,0],[0,-2,1,1,0,0,0,2,0,0,0,2,0,6,0,0,0,0,0,2,0,0,0,2],[1,1,0,2,2,0,2,2,2,0,2,2,0,0,6,0,2,0,2,2,2,0,2,2],[1,1,2,0,0,2,2,2,0,2,2,2,0,0,0,6,0,2,2,2,0,2,2,2],[0,2,-2,2,-2,0,1,1,0,0,0,2,0,0,2,0,6,0,0,0,2,0,2,-2],[2,0,2,-2,0,-2,1,1,0,0,2,0,0,0,0,2,0,6,0,0,0,2,-2,2],[-2,2,2,0,1,1,0,2,2,0,2,2,2,0,2,2,0,0,6,0,-2,2,2,0],[2,-2,0,2,1,1,2,0,0,2,2,2,0,2,2,2,0,0,0,6,2,-2,0,2],[2,0,-2,2,0,0,2,0,-2,0,1,1,0,0,2,0,2,0,-2,2,6,0,0,0],[0,2,2,-2,0,0,0,2,0,-2,1,1,0,0,0,2,0,2,2,-2,0,6,0,0],[-2,2,0,2,0,2,2,2,1,1,0,2,2,0,2,2,2,-2,2,0,0,0,6,0],[2,-2,2,0,2,0,2,2,1,1,2,0,0,2,2,2,-2,2,0,2,0,0,0,6]]; S := Matrix(gram); L := LatticeWithGram(S); T := ThetaSeriesModularForm(L); Coefficients(PowerSeries(T,prec)); // Andy Huchala, May 14 2023
Formula
G.f. = 1 + 512*x^3 + 11232*x^4 + 145920*x^5 + ...
G.f. = 1 + 512*q^6 + 11232*q^8 + 145920*q^10 + ...
Extensions
More terms from Andy Huchala, May 14 2023
Comments