A012428 arctanh(arctan(x)*sin(x))=2/2!*x^2-12/4!*x^4+430/6!*x^6-27384/8!*x^8...

0, 2, -12, 430, -27384, 3086458, -524689220, 126513823462, -40981407368048, 17181884789561202, -9052122654113318396, 5854705311144202022046, -4561027328402726456335720, 4212695076131749316430016746

Offset

0,2

Links

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

Mathematica

With[{nn=30}, Take[CoefficientList[Series[ArcTanh[ArcTan[x]*Sin[x]], {x, 0, nn}], x] Range[0, nn]!, {1, -1, 2}]] (* Ray Chandler, Nov 28 2016 *)

Crossrefs

Sequence in context: A012378 A012383 A012751 * A012786 A168504 A062738

Adjacent sequences: A012425 A012426 A012427 * A012429 A012430 A012431

Keyword

sign

Author

Patrick Demichel

Status

approved