A013300 -arcsinh(log(x+1)-arctanh(x))=1/2!*x^2+6/4!*x^4+105/6!*x^6+3780/8!*x^8...

0, 1, 6, 105, 3780, 239085, 24012450, 3536618085, 716383067400, 190018401197625, 63663766667250750, 26240058743733259425, 13041458355044952132300, 7692606854418016599193125

Offset

0,3

Links

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

Mathematica

With[{nn=30}, Take[CoefficientList[Series[-ArcSinh[Log[x+1]-ArcTanh[x]], {x, 0, nn}], x] Range[0, nn]!, {1, -1, 2}]] (* Ray Chandler, Nov 29 2016 *)

Crossrefs

Sequence in context: A227207 A126467 A013294 * A330769 A109819 A162130

Adjacent sequences: A013297 A013298 A013299 * A013301 A013302 A013303

Keyword

nonn

Author

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

Status

approved