A330351 Expansion of e.g.f. -Sum_{k>=1} log(1 - (exp(x) - 1)^k) / k.

1, 3, 11, 57, 359, 2793, 25871, 273297, 3268199, 44132313, 659178431, 10710083937, 189256343639, 3636935896233, 75228664345391, 1657133255788977, 38770903634692679, 964609458391250553, 25470259163197390751, 709595190213796188417

Offset

1,2

Links

Vaclav Kotesovec, Table of n, a(n) for n = 1..420

Vaclav Kotesovec, Graph - the asymptotic ratio (10000 terms)

Formula

E.g.f.: Sum_{i>=1} Sum_{j>=1} (exp(x) - 1)^(i*j) / (i*j).

E.g.f.: log(Product_{k>=1} 1 / (1 - (exp(x) - 1)^k)^(1/k)).

G.f.: Sum_{k>=1} (k - 1)! * tau(k) * x^k / Product_{j=1..k} (1 - j*x), where tau = A000005.

a(n) = Sum_{k=1..n} Stirling2(n,k) * (k - 1)! * tau(k).

a(n) ~ n! * (log(n) + 2*gamma - log(2) - log(log(2))) / (n * (log(2))^n), where gamma is the Euler-Mascheroni constant A001620. - Vaclav Kotesovec, Dec 14 2019

Mathematica

nmax = 20; CoefficientList[Series[-Sum[Log[1 - (Exp[x] - 1)^k]/k, {k, 1, nmax}], {x, 0, nmax}], x] Range[0, nmax]! // Rest
Table[Sum[StirlingS2[n, k] (k - 1)! DivisorSigma[0, k], {k, 1, n}], {n, 1, 20}]

Crossrefs

Cf. A000005, A000629, A002746, A008277, A028342, A308554, A318249, A330352, A330353, A330354, A330445.

Sequence in context: A094611 A052442 A217034 * A180112 A188458 A212435

Adjacent sequences: A330348 A330349 A330350 * A330352 A330353 A330354

Keyword

nonn

Author

Ilya Gutkovskiy, Dec 11 2019

Status

approved