A012963 Expansion of e.g.f.: arctan(arctan(x)+log(x+1))=2*x-1/2!*x^2-16/3!*x^3+42/4!*x^4+756/5!*x^5...

0, 2, -1, -16, 42, 756, -5130, -82584, 1145256, 15632064, -405336960, -4218834816, 206734828608, 1303793191008, -142600433831856, -162973525708224, 126855035118725760, -683674107835961088

Offset

0,2

Links

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

Mathematica

With[{nn=20}, CoefficientList[Series[ArcTan[ArcTan[x]+Log[x+1]], {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, Jan 27 2015 *)

Crossrefs

Sequence in context: A013125 A012967 A013121 * A013120 A012968 A266827

Adjacent sequences: A012960 A012961 A012962 * A012964 A012965 A012966

Keyword

sign

Author

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

Extensions

Definition clarified by and zero prepended by Harvey P. Dale, Jan 27 2015

Status

approved