A013159 arctan(arctanh(x)+log(x+1))=2*x-1/2!*x^2-12/3!*x^3+42/4!*x^4+436/5!*x^5...

0, 2, -1, -12, 42, 436, -4170, -32704, 751016, 3283072, -209162880, 86913024, 81648502848, -575015877024, -41409311392176, 689874309603456, 25412078270229120, -812967446932685568, -17148064731893670528

Offset: 0

Author

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

Keywords

• sign

Programs

Mathematica

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