|
MATHEMATICA
|
Table[n!*SeriesCoefficient[ArcTanh[Tan[x]*Sin[x]], {x, 0, n}], {n, 2, 40, 2}] (* Vaclav Kotesovec, Oct 24 2013 *)
With[{nn=30}, Take[CoefficientList[Series[ArcTanh[Tan[x]Sin[x]], {x, 0, nn}], x] Range[0, nn]!, {3, -1, 2}]] (* Harvey P. Dale, Feb 15 2018 *)
|