A290050 Coefficients in expansion of 691^2*E_6*E_12^2.

477481, -150101784, 136249055208, -63604855321056, -195358116440088, -7467654553124192784, -1717686223249005340128, -153060438018813351348672, -7369907929791849766742040, -224318806535938497072194232, -4762271485690855450838091792

Offset: 0

Author

Seiichi Manyama, Jul 19 2017

Keywords

• sign

Links

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

Crossrefs

Cf. A013973 (E_6), A029828 (691*E_12).

Programs

Mathematica

terms = 11;
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^2*E6[x]*E12[x]^2 + O[x]^terms // CoefficientList[#, x]& (* Jean-François Alcover, Feb 26 2018 *)