|
MATHEMATICA
|
nn = 20; Table[(CoefficientList[Series[ArcTanh[ArcSin[x] + ArcTan[x]], {x, 0, 2*nn+1}], x] * Range[0, 2*nn+1]!)[[n]], {n, 2, 2*nn, 2}] (* Vaclav Kotesovec, Feb 05 2015 *)
With[{nn=30}, Take[CoefficientList[Series[ArcTanh[ArcTan[x]+ArcSin[x]], {x, 0, nn}], x] Range[ 0, nn-1]!, {2, -1, 2}]] (* Harvey P. Dale, Sep 04 2022 *)
|