|
|
A009215
|
|
Expansion of e.g.f.: exp(sin(x)/cosh(x)).
|
|
0
|
|
|
1, 1, 1, -3, -15, -3, 297, 1113, -6783, -77063, 70609, 5509845, 18558705, -430006731, -4027228359, 33282260529, 727421677185, -1454472663311, -134584692783455, -448480622503635, 26232888936219249, 254015086363619949
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,4
|
|
LINKS
|
|
|
MATHEMATICA
|
With[{nn=30}, CoefficientList[Series[Exp[Sin[x]/Cosh[x]], {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, Sep 26 2016 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
sign,easy
|
|
AUTHOR
|
|
|
EXTENSIONS
|
Definition clarified and prior Mathematica program replaced by Harvey P. Dale, Sep 26 2016
|
|
STATUS
|
approved
|
|
|
|