A013269 E.g.f.: sech(log(x+1)-sinh(x))=1-3/4!*x^4+10/5!*x^5-100/6!*x^6+693/7!*x^7...

1, 0, 0, 0, -3, 10, -100, 693, -5383, 47052, -404934, 3834435, -36703359, 357872502, -3463205876, 30476792955, -198853998991, -654085861096, 67344661591926, -2023504421641677, 49767870277602057

Offset

0,5

Links

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

Mathematica

With[{nn=30}, CoefficientList[Series[Sech[Log[x+1]-Sinh[x]], {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, Mar 07 2015 *)

Crossrefs

Sequence in context: A013226 A013231 A013232 * A013262 A013267 A013268

Adjacent sequences: A013266 A013267 A013268 * A013270 A013271 A013272

Keyword

sign

Author

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

Extensions

Definition clarified by Harvey P. Dale, Mar 07 2015

Status

approved