OFFSET
0,3
LINKS
R. Suter, Two analogues of a classical sequence, J. Integer Sequences, Vol. 3 (2000), #P00.1.8.
FORMULA
E.g.f.: f_4(x)*g_1(x)*e_1(f_2(x)) + e_1(x)*g_4(x)*e_1(g_2(x)) where e_n(x) = 1/n exp(n x); f_n(x) = 1/n (exp(n x) - 1); g_n(x) = 1/n (exp(n x) - 1 - n x).
MATHEMATICA
max = 18; e[n_, x_] := E^(n*x)/n; f[n_, x_] := (E^(n*x) - 1)/n; g[n_, x_] := (E^(n*x) - 1 - n*x)/n; se = Series[ f[4, x]*g[1, x]*e[1, f[2, x]] + e[1, x]*g[4, x]*e[1, g[2, x]], {x, 0, max}]; CoefficientList[se, x]*Range[0, max]! (* Jean-François Alcover, May 04 2012, after e.g.f. *)
CROSSREFS
KEYWORD
nonn,nice
AUTHOR
Ruedi Suter (suter(AT)math.ethz.ch)
STATUS
approved