|
%I #6 Jun 17 2014 15:54:32
%S 1,-1,-15,-561,-38623,-4206881,-661302639,-140958927825,
%T -38921417469119,-13433349471318337,-5625858245527551439,
%U -2783882722627688439921,-1585166024021465157765535
%N cos(tan(arctanh(x)))=1-1/2!*x^2-15/4!*x^4-561/6!*x^6-38623/8!*x^8...
%t With[{nn=30},Take[CoefficientList[Series[Cos[Tan[ArcTanh[x]]],{x,0,nn}],x] Range[0,nn]!,{1,-1,2}]] (* _Harvey P. Dale_, Jun 17 2014 *)
%K sign
%O 0,3
%A Patrick Demichel (patrick.demichel(AT)hp.com)
|
