A009608 Expansion of e.g.f. sinh(tan(x)*exp(x)).

0, 1, 2, 6, 24, 152, 1072, 8512, 71680, 662080, 6603392, 71748864, 837838848, 10499561984, 139880866816, 1976422924288, 29453086916608, 462014697656320, 7601785735454720, 130960983301496832, 2356171689814425600, 44197586399696322560, 862635671043302490112

Offset

0,3

Links

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

Mathematica

With[{nn = 30}, CoefficientList[Series[Sinh[Tan[x]*Exp[x]], {x, 0, nn}], x]*Range[0, nn]!]

Prog

(PARI) my(x='x+O('x^30)); Vec(serlaplace(sinh(tan(x)*exp(x))), -30) \\ Michel Marcus, Jan 18 2025

Crossrefs

Sequence in context: A275594 A013010 A275955 * A012715 A038205 A012361

Adjacent sequences: A009605 A009606 A009607 * A009609 A009610 A009611

Keyword

nonn,easy

Author

R. H. Hardin

Extensions

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

Status

approved