|
%I #11 Feb 29 2016 12:43:39
%S 0,2,8,226,15504,1188706,148306520,26128271170,5977691158048,
%T 1757745580960834,644493123719650472,287811224662750272034,
%U 153933334239209991266992,97140471618560380314609826
%N tan(arcsin(x)-sin(x)) = 2/3!*x^3+8/5!*x^5+226/7!*x^7+15504/9!*x^9...
%F a(n) ~ c * (2*n)! / sqrt(n), where c = 1/(sqrt(Pi) * (sin(sin(1)))^2) = 1.0148109425617531683... . - _Vaclav Kotesovec_, Feb 29 2016
%t nn = 20; Table[(CoefficientList[Series[Cot[ArcCos[x] + Sin[x]], {x, 0, 2*nn+1}], x] * Range[0, 2*nn+1]!)[[n]], {n, 2, 2*nn, 2}] (* _Vaclav Kotesovec_, Feb 06 2015 *)
%K nonn
%O 0,2
%A Patrick Demichel (patrick.demichel(AT)hp.com)
%E a(0)=0 prepended by _Vaclav Kotesovec_, Feb 06 2015
%E Definition modified by _Vaclav Kotesovec_, Feb 06 2015
|
