|
%I #13 Aug 08 2018 04:44:19
%S 1,1,-1,-55,-143,-968167,-7000033,-571772647,-843598411471,
%T -1263845119891,-740683182137153,-474904166544135457,
%U 2379183287545454197,237037449673450822122569,155015924346163216960553093,50568039962561468889366023,1801162678607996830733199407999,2359789149102567189423591182268559
%N Numerators of terms in series expansion of sin(tan(x)).
%H G. C. Greubel, <a href="/A096664/b096664.txt">Table of n, a(n) for n = 0..200</a>
%e sin(tan(x)) = x + 1/6*x^3 - 1/40*x^5 - 55/1008*x^7 - 143/3456*x^9 + ...
%t Numerator[Take[CoefficientList[Series[Sin[Tan[x]], {x,0,40}], x], {2,-1,2}]] (* _G. C. Greubel_, Nov 17 2016 *)
%Y Cf. A096671, A096712, A096716, A045688, A045689, A096717, A096718.
%Y Cf. A003706.
%K sign,frac
%O 0,4
%A _N. J. A. Sloane_, Aug 15 2004
|
