A012402 arcsinh(arctan(x)*log(x+1)) = 2/2!*x^2 - 3/3!*x^3 - 10/5!*x^5 + 88/6!*x^6 - ...

2, -3, 0, -10, 88, 336, -5040, 5256, 202752, -2094840, 26943840, -534147120, 7877529840, -41350410360, -804692528640, 16885512006720, -166653340523520, 3621340758072960, -48704381263560960, -2035821123825148800, 99959690241598844160, -1979439236443512264960

Offset

2,1

Links

Table of n, a(n) for n=2..23.

Mathematica

With[{nn=20}, Drop[CoefficientList[Series[ArcSinh[ArcTan[x]Log[x+1]], {x, 0, nn}], x] Range[0, nn]!, 2]] (* Harvey P. Dale, Nov 27 2012 *)

Crossrefs

Sequence in context: A012653 A012656 A012397 * A177700 A012654 A012651

Adjacent sequences: A012399 A012400 A012401 * A012403 A012404 A012405

Keyword

sign

Author

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

Extensions

Offset corrected by Harvey P. Dale, Nov 27 2012

Status

approved