OFFSET
0,3
FORMULA
E.g.f.: Integral [d/dx log(g(x))]/(1 - log(g(x))) dx, where g(x) is the e.g.f. for A006125.
MATHEMATICA
nn = 16; g[x_] := Sum[2^Binomial[n, 2] x^n/n!, {n, 0, nn+1}]; Table[n!, {n, 0, nn + 1}] CoefficientList[Integrate[Series[D[Log[g[x]], x]/(1 - Log[g[x]]), {x, 0, nn}], x], x]
CROSSREFS
KEYWORD
nonn
AUTHOR
Geoffrey Critzer, Jun 04 2020
STATUS
approved