A096718 Denominators of terms in series expansion of arcsin(arctan(x)).
1, 6, 120, 5040, 362880, 4435200, 32947200, 145297152000, 69701632000, 13516122267648000, 5676771352412160000, 2872446304320552960000, 1723467782592331776000000, 1935799013407707050803200, 485144691014524112732160000, 1353553687930522274522726400000, 204193242064947360270857011200000
Offset: 0
Examples
arcsin(arctan(x)) = x - 1/6*x^3 + 13/120*x^5 - 341/5040*x^7 + 18649/362880*x^9 - 177761/4435200*x^11 + ...
Links
- G. C. Greubel, Table of n, a(n) for n = 0..200
Programs
-
Mathematica
Denominator[Take[CoefficientList[Series[ArcSin[ArcTan[x]], {x,0,40}], x], {2,-1,2}]] (* G. C. Greubel, Nov 17 2016 *)