|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,3
|
|
LINKS
|
|
|
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
|
|
|
KEYWORD
|
sign,easy
|
|
AUTHOR
|
|
|
EXTENSIONS
|
Definition clarified and previous Mathematica program replaced by Harvey P. Dale, Jun 09 2020
|
|
STATUS
|
approved
|
|
|
|