%I #6 Feb 09 2015 13:30:26
%S 1,-5,129,-8133,941601,-173748453,46802237793,-17335271239653,
%T 8453548403430081,-5250998394750249285,4048144275997010258625,
%U -3792939800731791655328133,4245216299498829593948709345
%N arctan(arctan(sin(x)))=x-5/3!*x^3+129/5!*x^5-8133/7!*x^7+941601/9!*x^9...
%t With[{nn=30},Take[CoefficientList[Series[ArcTan[ArcTan[Sin[x]]],{x,0,nn}],x] Range[0,nn-1]!,{2,-1,2}]] (* _Harvey P. Dale_, Feb 09 2015 *)
%K sign
%O 0,2
%A Patrick Demichel (patrick.demichel(AT)hp.com)
%E Definition clarified by _Harvey P. Dale_, Feb 09 2015
|