A012701 arctan(arctanh(x)*log(x+1))=2/2!*x^2-3/3!*x^3+16/4!*x^4-50/5!*x^5...

0, 0, 2, -3, 16, -50, 128, 756, -20064, 298656, -3561408, 38990160, -310756800, 467943840, 66887172480, -2183463747360, 51505489029120, -1001091175633920, 15963926463621120, -153477175865587200

Offset

0,3

Links

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

Mathematica

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

Crossrefs

Sequence in context: A344747 A073633 A012357 * A012356 A012352 A012704

Adjacent sequences: A012698 A012699 A012700 * A012702 A012703 A012704

Keyword

sign

Author

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

Status

approved