|
|
A289639
|
|
Coefficients in expansion of -q*E'_10/E_10 where E_10 is the Eisenstein Series (A013974).
|
|
8
|
|
|
264, 340560, 141251616, 85062410400, 43377095394864, 23729517350865216, 12591243615814264896, 6769208775901467246912, 3618692733697667332476264, 1939201752717876551124987360, 1038098212042387655796115897440
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
FORMULA
|
G.f.: 1/3 * E_6/E_4 + 1/2 * E_8/E_6 - 5/6 * E_2.
|
|
MATHEMATICA
|
nmax = 20; Rest[CoefficientList[Series[264*x*Sum[k*DivisorSigma[9, k]*x^(k-1), {k, 1, nmax}]/(1 - 264*Sum[DivisorSigma[9, k]*x^k, {k, 1, nmax}]), {x, 0, nmax}], x]] (* Vaclav Kotesovec, Jul 09 2017 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|