A009211 Expansion of exp(sin(x)*cosh(x)).

1, 1, 1, 3, 9, 17, 57, 259, 497, 961, 9169, -8349, -299079, -420847, -7650615, -107714525, -160774303, -291144191, -24228427487, 71679177795, 1725345708777, -2546217250159, 79802910103257, 1636072819714243, -2815860329426863

Offset

0,4

Links

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

Mathematica

With[{nn=30}, CoefficientList[Series[Exp[Sin[x]*Cosh[x]], {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, Dec 29 2021 *)

Crossrefs

Sequence in context: A108050 A343781 A321869 * A105538 A056404 A056405

Adjacent sequences: A009208 A009209 A009210 * A009212 A009213 A009214

Keyword

sign,easy

Author

R. H. Hardin

Extensions

Extended with signs by Olivier Gérard, Mar 15 1997

Previous Mathematica program replaced by Harvey P. Dale, Dec 29 2021

Status

approved