A096716 - OEIS

%I #7 Nov 21 2016 04:24:55

%S 1,6,40,5040,24192,39916800,6227020800,37362124800,355687428096000,

%T 24329020081766400,51090942171709440000,2872446304320552960000,

%U 5170403347776995328000000,2177773890083670432153600000,8841761993739701954543616000000,249176928914482509628047360000000

%N Denominators of terms in series expansion of tan(sin(x)).

%H G. C. Greubel, <a href="/A096716/b096716.txt">Table of n, a(n) for n = 0..200</a>

%e tan(sin(x)) = x + 1/6*x^3 - 1/40*x^5 - 107/5040*x^7 - 73/24192*x^9 + 41897/39916800*x^11 + ...

%t Denominator[Take[CoefficientList[Series[Tan[Sin[x]], {x,0,50}], x], {2, -1, 2}]] (* _G. C. Greubel_, Nov 21 2016 *)

%Y Cf. A096712, A096664, A096671.

%Y Cf. A003705.

%K nonn,frac

%O 0,2

%A _N. J. A. Sloane_, Aug 15 2004