login
A330351
Expansion of e.g.f. -Sum_{k>=1} log(1 - (exp(x) - 1)^k) / k.
7
1, 3, 11, 57, 359, 2793, 25871, 273297, 3268199, 44132313, 659178431, 10710083937, 189256343639, 3636935896233, 75228664345391, 1657133255788977, 38770903634692679, 964609458391250553, 25470259163197390751, 709595190213796188417
OFFSET
1,2
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}]
KEYWORD
nonn
AUTHOR
Ilya Gutkovskiy, Dec 11 2019
STATUS
approved