|
%I #9 Jan 28 2015 18:28:19
%S 1,1,1,-2,-11,16,301,-272,-16631,256,1543801,1758208,-216765251,
%T -549115904,42924800101,178127730688,-11404529749871,-68157333438464,
%U 3916428205369201,31349506823815168,-1688780438764074491
%N Expansion of e.g.f.: exp(arctan(sin(x)))=1+x+1/2!*x^2-2/3!*x^3-11/4!*x^4+16/5!*x^5...
%F E.g.f.: 1 + 2*sin(x)/(Q(0)-sin(x)), where Q(k) = 4*k+2 + (sin(x))^2*(4*k^2+8*k+5)/Q(k+1) ; (continued fraction). - _Sergei N. Gladkovskii_, Dec 18 2013
%t With[{nn=20},CoefficientList[Series[Exp[ArcTan[Sin[x]]],{x,0,nn}],x] Range[0,nn]!] (* _Harvey P. Dale_, Jan 28 2015 *)
%K sign
%O 0,4
%A Patrick Demichel (patrick.demichel(AT)hp.com)
%E Definition clarified by _Harvey P. Dale_, Jan 28 2015
|
