|
|
A282596
|
|
Coefficients in q-expansion of E_2*E_4^2*E_6, where E_2, E_4, E_6 are the Eisenstein series shown in A006352, A004009, A013973, respectively.
|
|
4
|
|
|
1, -48, -196128, -33542976, -678319104, 12136422240, 509314518144, 7469015889792, 68272650653760, 458377820557584, 2454769903187520, 11035857376010304, 43103740076823552, 149954656815201504, 473331019057949952, 1375248429330791040, 3719662610125117632
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
LINKS
|
|
|
MATHEMATICA
|
terms = 17;
E2[x_] = 1 - 24*Sum[k*x^k/(1 - x^k), {k, 1, terms}];
E4[x_] = 1 + 240*Sum[k^3*x^k/(1 - x^k), {k, 1, terms}];
E6[x_] = 1 - 504*Sum[k^5*x^k/(1 - x^k), {k, 1, terms}];
|
|
CROSSREFS
|
|
|
KEYWORD
|
sign
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|