OFFSET
0,3
FORMULA
MATHEMATICA
nn = 16; f[x_] := Sum[2^Binomial[n, 2] x^n/n!, {n, 0, nn}]; a =
Range[0, nn]! CoefficientList[Series[ 1 + Log[f[x]], {x, 0, nn}], x];
c[x_] := Sum[a[[i]] x^(i - 1)/(i - 1)!, {i, 1, nn + 1}];
t[x_] := 1 + Sum[n^(n - 2) x^n/n!, {n, 1, nn}];
Range[0, nn]! CoefficientList[Series[Exp[x] Exp[c[x] - t[x]] (t[x] - x), {x, 0, nn}], x]
CROSSREFS
KEYWORD
nonn
AUTHOR
Geoffrey Critzer, Feb 23 2020
STATUS
approved