A009623 Expansion of sinh(x).exp(sinh(x)).

0, 1, 2, 4, 12, 36, 118, 456, 1816, 7888, 37354, 184064, 974372, 5444544, 31769182, 195982208, 1259350576, 8441139456, 59073098706, 428299217920, 3226127944764, 25165446157312, 202778723085382, 1689266143553536

Offset: 0

Author

R. H. Hardin

Keywords

• nonn
• easy

Crossrefs

A003724, A009541.

Programs

Mathematica

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

Formula

a(n) = D^n(x*exp(x)) evaluated at x = 0, where D is the operator sqrt(1+x^2)*d/dx. Cf. A003724 and A009541. - Peter Bala, Dec 06 2011

Extensions

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

Previous Mathematica program replaced by Harvey P. Dale, Jun 07 2022