A012932 Arctanh(tan(x)+log(x+1)) = 2*x - 1/2!*x^2 + 20/3!*x^3 - 54/4!*x^4 + 1188/5!*x^5 + ...

0, 2, -1, 20, -54, 1188, -7590, 181632, -2019080, 53249472, -874603440, 25606617472, -562552304160, 18326040005024, -504598523011856, 18267771678474112, -603047158364227200, 24178616400492978432, -927480579061871147904, 40990916944151608195584

Offset

0,2

Links

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

Mathematica

With[{nn=30}, CoefficientList[Series[ArcTanh[Tan[x]+Log[x+1]], {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, May 03 2013 *)

Crossrefs

Sequence in context: A283620 A012927 A013158 * A013163 A191719 A009768

Adjacent sequences: A012929 A012930 A012931 * A012933 A012934 A012935

Keyword

sign

Author

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

Extensions

More terms from Harvey P. Dale, May 03 2013

Status

approved