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,1

Links

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

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

Crossrefs

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

Sequence in context: A213994 A201226 A244628 * A244086 A015332 A238178

Adjacent sequences: A290047 A290048 A290049 * A290051 A290052 A290053

Keyword

sign

Author

Seiichi Manyama, Jul 19 2017

Status

approved