A290010 Coefficients in expansion of 691*E_6^2*E_12.
691, -631008, 220745952, -97839374976, 19569814631136, 4535334591238080, 303188772007707264, 10484562664742729472, 226123357637141848800, 3395301924051385082784, 38309171317486687195200, 343029821520447762390144, 2537867756328299498904192
Offset: 0
Keywords
Links
- Seiichi Manyama, Table of n, a(n) for n = 0..1000
Programs
-
Mathematica
terms = 13; E6[x_] = 1 - 504*Sum[k^5*x^k/(1 - x^k), {k, 1, terms}]; E12[x_] = 1 + (65520/691)*Sum[k^11*x^k/(1 - x^k), {k, 1, terms}]; 691*E6[x]^2*E12[x] + O[x]^terms // CoefficientList[#, x]& (* Jean-François Alcover, Feb 26 2018 *)