login
A009211
Expansion of exp(sin(x)*cosh(x)).
0
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
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 A374692 A056404
KEYWORD
sign,easy
AUTHOR
EXTENSIONS
Extended with signs by Olivier Gérard, Mar 15 1997
Previous Mathematica program replaced by Harvey P. Dale, Dec 29 2021
STATUS
approved