login
A009145
Expansion of e.g.f.: cosh(sin(x))/exp(x).
0
1, -1, 2, -4, 4, 4, -32, 104, -48, -1360, 5600, -1024, -85568, 494272, -533504, -13790848, 85827840, 68726528, -3149702656, 15167771648, 27282224128, -993154165760, 5424499154944, 28626523621376, -496815684169728, 1093475947065344
OFFSET
0,3
MATHEMATICA
With[{nn=30}, CoefficientList[Series[Cosh[Sin[x]]/Exp[x], {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, Jun 09 2020 *)
CROSSREFS
Sequence in context: A140295 A291780 A070529 * A009292 A009622 A232845
KEYWORD
sign,easy
AUTHOR
EXTENSIONS
Extended with signs by Olivier Gérard, Mar 15 1997
Definition clarified and previous Mathematica program replaced by Harvey P. Dale, Jun 09 2020
STATUS
approved