|
| |
|
|
A009184
|
|
Expansion of e.g.f.: cosh(x)/exp(sin(x)).
|
|
0
|
|
|
|
1, -1, 2, -3, 4, 3, -32, 105, -48, -1081, 5600, -5643, -85568, 547467, -533504, -12925983, 85827840, -21466225, -3149702656, 19155660141, 27282224128, -1094661097965, 5424499154944, 26420430767577, -496815684169728, 1642571602653527
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
0,3
|
|
|
LINKS
|
|
|
|
MATHEMATICA
|
With[{nn=30}, CoefficientList[Series[Cosh[x]/Exp[Sin[x]], {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, Jun 11 2017 *)
|
|
|
CROSSREFS
|
|
|
|
KEYWORD
|
sign,easy
|
|
|
AUTHOR
|
|
|
|
EXTENSIONS
|
Definition clarified and previous Mathematica program replaced by Harvey P. Dale, Jun 11 2017
|
|
|
STATUS
|
approved
|
| |
|
|
