A013266 E.g.f.: arctanh(log(x+1)-sinh(x)) = -1/2!*x^2 + 1/3!*x^3 - 6/4!*x^4 + 23/5!*x^5 - ...

0, 0, -1, 1, -6, 23, -150, 929, -8120, 73387, -791280, 9118019, -118205208, 1645324757, -25017568576, 407175866733, -7122304020000, 132554586404695, -2623938745643136, 54936833779465199

Offset

0,5

Links

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

Mathematica

With[{nn=20}, CoefficientList[Series[ArcTanh[Log[x+1]-Sinh[x]], {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, Jul 25 2013 *)

Crossrefs

Sequence in context: A012468 A219168 A013260 * A154420 A255305 A339628

Adjacent sequences: A013263 A013264 A013265 * A013267 A013268 A013269

Keyword

sign

Author

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

Extensions

First two terms prepended and definition clarified by Harvey P. Dale, Jul 25 2013

Status

approved