A013321 E.g.f.: sech(exp(x)-cos(x)).

1, 0, -1, -6, -11, 80, 923, 3682, -26567, -585120, -3969849, 24427370, 948294477, 9793100720, -42570639997, -3129194240622, -45887540775759, 90022891149760, 18204741288946383, 363299569735984474

Offset

0,4

Links

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

Example

sech(exp(x)-cos(x)) = 1 -x^2/2! -6*x^3/3! -11*x^4/4! +80*x^5/5! ...

Mathematica

With[{nn=20}, CoefficientList[Series[Sech[Exp[x]-Cos[x]], {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, Jun 06 2015 *)

Crossrefs

Sequence in context: A283820 A332659 A219702 * A192893 A188599 A217934

Adjacent sequences: A013318 A013319 A013320 * A013322 A013323 A013324

Keyword

sign

Author

Patrick Demichel (patrick.demichel(AT)hp.com)

Status

approved