login
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
OFFSET
0,4
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
Sequence in context: A331223 A370538 A369370 * A274078 A302782 A375889
KEYWORD
sign,easy
AUTHOR
EXTENSIONS
Extended with signs by Olivier Gérard, Mar 15 1997
Definition clarified and prior Mathematica program replaced by Harvey P. Dale, Sep 26 2016
STATUS
approved