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