|
|
A109817
|
|
G.f.: 12th root of Eisenstein series E_6 (cf. A013973).
|
|
22
|
|
|
1, -42, -11088, -3774624, -1472710974, -617481728640, -270883381218912, -122585272771463040, -56747118995519331456, -26727350506044696990762, -12760853360973370821796320, -6159994719956314185540737376, -3000691311646502407278581263104, -1472883416501251994527873967792256
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
LINKS
|
|
|
FORMULA
|
a(n) ~ c * exp(2*Pi*n) / n^(13/12), where c = -Gamma(1/4)^(10/3) * Gamma(1/3)^2 / (16 * 6^(1/12) * Pi^3 * Gamma(1/12)) = -0.079329971529325538458906713053582098... - Vaclav Kotesovec, Jul 02 2017, updated Mar 05 2018
|
|
MATHEMATICA
|
nmax = 20; s = 6; CoefficientList[Series[(1 - 2*s/BernoulliB[s] * Sum[DivisorSigma[s - 1, k]*x^k, {k, 1, nmax}])^(1/12), {x, 0, nmax}], x] (* Vaclav Kotesovec, Jul 02 2017 *)
|
|
CROSSREFS
|
E_6^(k/12): this sequence (k=1), A289325 (k=2), A289326 (k=3), A289327 (k=4), A289328 (k=5), A289293 (k=6), A289345 (k=7), A289346 (k=8), A289347 (k=9), A289348 (k=10), A289349 (k=11).
|
|
KEYWORD
|
sign
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|