%I #6 Jul 10 2019 16:33:22
%S 1,0,0,-40,-896,-62304,-6036096,-878453888,-172356091904,
%T -44229410876928,-14356887611836416,-5752160769829099520,
%U -2787961066322579554304,-1607823657408554342604800
%N cos(sin(x)-arcsin(x))=1-40/6!*x^6-896/8!*x^8-62304/10!*x^10...
%t With[{nn=30},Take[CoefficientList[Series[Cos[Sin[x]-ArcSin[x]],{x,0,nn}],x] Range[0,nn]!,{1,-1,2}]] (* _Harvey P. Dale_, Jul 10 2019 *)
%K sign
%O 0,4
%A Patrick Demichel (patrick.demichel(AT)hp.com)
|