|
MATHEMATICA
|
Table[n!*SeriesCoefficient[ArcSinh[ArcSinh[x]+Tan[x]], {x, 0, n}], {n, 1, 41, 2}] (* Vaclav Kotesovec, Nov 01 2013 *)
With[{nn=30}, Take[CoefficientList[Series[ArcSinh[ArcSinh[x]+Tan[x]], {x, 0, nn}], x] Range[0, nn-1]!, {2, -1, 2}]] (* Harvey P. Dale, Jun 17 2021 *)
|