A009624 Expansion of sinh(x)*exp(tan(x)).

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

Links

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

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

Adjacent sequences: A009621 A009622 A009623 * A009625 A009626 A009627

Keyword

nonn,easy

Author

R. H. Hardin

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