|
MATHEMATICA
|
Table[n!*SeriesCoefficient[Sinh[Sin[ArcSinh[x]]], {x, 0, n}], {n, 1, 40, 2}] (* Vaclav Kotesovec, Oct 30 2013 *)
With[{nn=30}, Take[CoefficientList[Series[Sinh[Sin[ArcSinh[x]]], {x, 0, nn}], x] Range[ 0, nn-1]!, {2, -1, 2}]] (* Harvey P. Dale, Mar 18 2023 *)
|