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,2

Links

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

Mathematica

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

Crossrefs

Sequence in context: A009821 A009831 A012931 * A012590 A012291 A012585

Adjacent sequences: A013156 A013157 A013158 * A013160 A013161 A013162

Keyword

sign

Author

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

Status

approved