A279333 - OEIS

%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