A288779 Theta series of the 24-dimensional lattice of hyper-roots E_9(SU(3)).
1, 0, 756, 5760, 98928, 1092096, 8435760, 45142272, 202712400, 715373568, 2350118808, 6501914496, 17469036096, 40850459136, 95266994400, 197161655040, 413591044176, 781142621184, 1511741623812, 2655160539264, 4815051144480, 7984019699712, 13744582363152
Offset: 0
Keywords
Examples
G.f. = 1 + 756*x^2 + 5760*x^3 + 98928*x^4 + ... G.f. = 1 + 756*q^4 + 5760*q^6 + 98928*q^8 + ...
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,2,0,0,0,2,0,0,0,-2,0,0,1,-2,0,0,2,-2,0,0,2],[0,6,0,0,0,2,0,0,0,2,0,0,0,-2,0,1,0,-2,0,2,0,-2,0,2],[0,0,6,0,0,0,2,0,0,0,2,0,0,0,-2,1,0,0,-2,2,0,0,-2,2],[0,0,0,6,2,2,2,4,2,2,2,4,1,1,1,4,2,2,2,2,2,2,2,2],[2,0,0,2,6,0,0,0,2,0,0,2,2,0,0,2,-1,1,1,2,2,0,0,2],[0,2,0,2,0,6,0,0,0,2,0,2,0,2,0,2,1,-1,1,2,0,2,0,2],[0,0,2,2,0,0,6,0,0,0,2,2,0,0,2,2,1,1,-1,2,0,0,2,2],[0,0,0,4,0,0,0,6,2,2,2,2,0,0,0,4,2,2,2,1,2,2,2,2],[2,0,0,2,2,0,0,2,6,0,0,0,2,0,0,2,2,0,0,2,-1,1,1,2],[0,2,0,2,0,2,0,2,0,6,0,0,0,2,0,2,0,2,0,2,1,-1,1,2],[0,0,2,2,0,0,2,2,0,0,6,0,0,0,2,2,0,0,2,2,1,1,-1,2],[0,0,0,4,2,2,2,2,0,0,0,6,0,0,0,4,2,2,2,2,2,2,2,1],[-2,0,0,1,2,0,0,0,2,0,0,0,6,0,0,0,2,0,0,0,2,0,0,0],[0,-2,0,1,0,2,0,0,0,2,0,0,0,6,0,0,0,2,0,0,0,2,0,0],[0,0,-2,1,0,0,2,0,0,0,2,0,0,0,6,0,0,0,2,0,0,0,2,0],[1,1,1,4,2,2,2,4,2,2,2,4,0,0,0,6,2,2,2,4,2,2,2,4],[-2,0,0,2,-1,1,1,2,2,0,0,2,2,0,0,2,6,0,0,0,0,2,2,0],[0,-2,0,2,1,-1,1,2,0,2,0,2,0,2,0,2,0,6,0,0,2,0,2,0],[0,0,-2,2,1,1,-1,2,0,0,2,2,0,0,2,2,0,0,6,0,2,2,0,0],[2,2,2,2,2,2,2,1,2,2,2,2,0,0,0,4,0,0,0,6,0,0,0,4],[-2,0,0,2,2,0,0,2,-1,1,1,2,2,0,0,2,0,2,2,0,6,0,0,0],[0,-2,0,2,0,2,0,2,1,-1,1,2,0,2,0,2,2,0,2,0,0,6,0,0],[0,0,-2,2,0,0,2,2,1,1,-1,2,0,0,2,2,2,2,0,0,0,0,6,0],[2,2,2,2,2,2,2,2,2,2,2,1,0,0,0,4,0,0,0,4,0,0,0,6]]; S := Matrix(gram); L := LatticeWithGram(S); T := ThetaSeriesModularForm(L); Coefficients(PowerSeries(T,prec)); // Andy Huchala, May 14 2023
Extensions
More terms from Andy Huchala, May 14 2023
Comments