A013221 Expansion of e.g.f.: sech(log(x+1)-sin(x))=1-3/4!*x^4+30/5!*x^5-180/6!*x^6+1113/7!*x^7...

1, 0, 0, 0, -3, 30, -180, 1113, -7959, 54684, -326214, 1420595, 4070649, -267497802, 5659842188, -96370811565, 1502630963281, -22116660281384, 303797514676022, -3707479843755885, 33686225612995313

Offset

0,5

Links

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

Mathematica

With[{nn=20}, CoefficientList[Series[Sech[Log[x+1]-Sin[x]], {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, Jun 19 2018 *)

Crossrefs

Sequence in context: A013274 A013279 A013280 * A013214 A013219 A013220

Adjacent sequences: A013218 A013219 A013220 * A013222 A013223 A013224

Keyword

sign

Author

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

Extensions

Definition clarified by Harvey P. Dale, Jun 19 2018

Status

approved