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

Author

Seiichi Manyama, Jul 17 2017

Keywords

• sign

Links

• Seiichi Manyama, Table of n, a(n) for n = 0..1000

Crossrefs

Cf. A013973 (E_6), A029828 (691*E_12), A280869 (E_6^2).

Cf. A290009.

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 *)