login

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

A009224
Expansion of exp(sinh(x))*x.
0
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
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
KEYWORD
nonn,easy,changed
AUTHOR
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