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