login
A009624
Expansion of sinh(x)*exp(tan(x)).
0
0, 1, 2, 4, 16, 56, 288, 1576, 9920, 70912, 541184, 4668544, 42274816, 423673472, 4449451776, 50674728448, 605255720960, 7717401038848, 103187353223168, 1456461190426624, 21528004660707328, 333308651379949568
OFFSET
0,3
MATHEMATICA
With[{nn=30}, CoefficientList[Series[Sinh[x]*Exp[Tan[x]], {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, Apr 04 2015 *)
CROSSREFS
Sequence in context: A308381 A153957 A068789 * A009161 A009290 A235459
KEYWORD
nonn,easy
AUTHOR
EXTENSIONS
Extended and signs tested Mar 15 1997 by Olivier Gérard.
Previous Mathematica program replaced by Harvey P. Dale, Apr 04 2015
STATUS
approved