A009231 Expansion of exp(sinh(x)*log(1+x)).

1, 0, 2, -3, 24, -100, 760, -5271, 46424, -430704, 4535458, -51583675, 641139356, -8578689912, 123397966718, -1895969179755, 31013379835728, -537961001417760, 9865047642312306, -190684789616229651, 3875088566364987868

Offset: 0

Author

R. H. Hardin

Keywords

• sign
• easy

Programs

Mathematica

With[{nn=20}, CoefficientList[Series[Exp[Sinh[x]Log[1+x]], {x,0,nn}] ,x] Range[0,nn]!] (* Harvey P. Dale, Dec 19 2012 *)

Extensions

Extended with signs by Olivier Gérard, Mar 15 1997