|
%I #7 Nov 19 2016 03:10:41
%S 1,6,120,5040,362880,4435200,32947200,145297152000,69701632000,
%T 13516122267648000,5676771352412160000,2872446304320552960000,
%U 1723467782592331776000000,1935799013407707050803200,485144691014524112732160000,1353553687930522274522726400000,204193242064947360270857011200000
%N Denominators of terms in series expansion of arcsin(arctan(x)).
%H G. C. Greubel, <a href="/A096718/b096718.txt">Table of n, a(n) for n = 0..200</a>
%e arcsin(arctan(x)) = x - 1/6*x^3 + 13/120*x^5 - 341/5040*x^7 + 18649/362880*x^9 - 177761/4435200*x^11 + ...
%t Denominator[Take[CoefficientList[Series[ArcSin[ArcTan[x]], {x,0,40}], x], {2,-1,2}]] (* _G. C. Greubel_, Nov 17 2016 *)
%Y Cf. A096717, A096664, A096671, A096712, A096716, A045688, A045689, A096721, A096722.
%K nonn,frac
%O 0,2
%A _N. J. A. Sloane_, Aug 15 2004
|
