OFFSET
0,4
LINKS
N. J. A. Sloane, Transforms
Eric Weisstein's World of Mathematics, Stirling Transform
FORMULA
E.g.f.: exp(Sum_{k>=1} (-1)^(k+1)*log(1 + x)^k/(k*(1 - log(1 + x)^k))).
a(n) = Sum_{k=0..n} Stirling1(n,k)*A000009(k)*k!.
MAPLE
b:= proc(n) option remember; `if`(n=0, 1, add(b(n-j)*add(
`if`(d::odd, d, 0), d=numtheory[divisors](j)), j=1..n)/n)
end:
a:= n-> add(Stirling1(n, j)*b(j)*j!, j=0..n):
seq(a(n), n=0..23); # Alois P. Heinz, Jun 18 2018
MATHEMATICA
nmax = 21; CoefficientList[Series[Product[(1 + Log[1 + x]^k), {k, 1, nmax}], {x, 0, nmax}], x] Range[0, nmax]!
nmax = 21; CoefficientList[Series[Exp[Sum[(-1)^(k + 1) Log[1 + x]^k/(k (1 - Log[1 + x]^k)), {k, 1, nmax}]], {x, 0, nmax}], x] Range[0, nmax]!
Table[Sum[StirlingS1[n, k] PartitionsQ[k] k!, {k, 0, n}], {n, 0, 21}]
CROSSREFS
KEYWORD
sign
AUTHOR
Ilya Gutkovskiy, Jun 18 2018
STATUS
approved