A013297 -arctan(log(x+1)-arctanh(x))=1/2!*x^2+6/4!*x^4+90/6!*x^6+2520/8!*x^8...

0, 1, 6, 90, 2520, 120960, 9979200, 1377295920, 285145660800, 78922558915200, 27250976424672000, 11359413770434329600, 5628391828843104921600, 3284252230408078849920000, 2238997166752030045320960000

Offset

0,3

Links

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

Mathematica

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

Crossrefs

Sequence in context: A177289 A177290 A000680 * A232979 A218758 A219304

Adjacent sequences: A013294 A013295 A013296 * A013298 A013299 A013300

Keyword

nonn

Author

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

Status

approved