|
%I #6 Dec 12 2023 18:33:22
%S 1,1,1,6,6,40,120,5040,1008,362880,362880,13305600,39916800,
%T 6227020800,6227020800,1307674368000,1307674368000,39520825344000,
%U 14227497123840,121645100408832000,121645100408832000,51090942171709440000,51090942171709440000
%N Denominators of coefficients in expansion of (sin(x))/(1 - x - x^2).
%H Clark Kimberling, <a href="/A279333/b279333.txt">Table of n, a(n) for n = 0..1000</a>
%e (0/1) + (1/1)x + (1/1)x^2 + (11/6)x^3 + (17/6)x^4 ... ; 0/1, 1/1, 1/1, 11/6, ... = A279332/A279333.
%t z = 30; t = CoefficientList[Series[Sin[x]/(1 - x - x^2), {x, 0, z}], x];
%t Numerator[t] (* A279332 *)
%t Denominator[t] (* A279333 *)
%Y Cf. A279332.
%K nonn,easy,frac
%O 0,4
%A _Clark Kimberling_, Dec 12 2016
|
