A009224 Expansion of exp(sinh(x))*x.

0, 1, 2, 3, 8, 25, 72, 259, 1024, 4113, 18720, 89859, 451200, 2452905, 13870976, 82466115, 517341184, 3364642465, 22907884032, 162289204995, 1190546278400, 9080010901689, 71557772290048, 582825476943747, 4904509780131840

Offset

0,3

Links

Table of n, a(n) for n=0..24.

Mathematica

With[{nn=30}, CoefficientList[Series[Exp[Sinh[x]]*x, {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, Dec 20 2024 *)

Crossrefs

Sequence in context: A129202 A127905 A277040 * A171199 A176962 A065619

Adjacent sequences: A009221 A009222 A009223 * A009225 A009226 A009227

Keyword

nonn,easy,changed

Author

R. H. Hardin

Extensions

Extended and signs tested Mar 15 1997 by Olivier Gérard.

Previous Mathematica program replaced by Harvey P. Dale, Dec 20 2024

Status

approved