login
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...
0
1, 0, 0, 0, -3, 30, -180, 1113, -7959, 54684, -326214, 1420595, 4070649, -267497802, 5659842188, -96370811565, 1502630963281, -22116660281384, 303797514676022, -3707479843755885, 33686225612995313
OFFSET
0,5
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
KEYWORD
sign
AUTHOR
Patrick Demichel (patrick.demichel(AT)hp.com)
EXTENSIONS
Definition clarified by Harvey P. Dale, Jun 19 2018
STATUS
approved