A009215 Expansion of e.g.f.: exp(sin(x)/cosh(x)).

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

Links

Table of n, a(n) for n=0..21.

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 A088558

Adjacent sequences: A009212 A009213 A009214 * A009216 A009217 A009218

Keyword

sign,easy

Author

R. H. Hardin

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