login
Numerators of coefficients in expansion of (cos x)/(1 - x - x^2).
2

%I #5 Dec 12 2016 09:17:00

%S 1,1,3,5,97,157,7619,12329,124121,1807513,263214179,425890349,

%T 90961797697,29435864753,1313384366851,70128321031313,

%U 2475709202997731,44063598280490161,21816698251120351811,35300159324950341077,7234801959635621099147,2065792142493411347453

%N Numerators of coefficients in expansion of (cos x)/(1 - x - x^2).

%H Clark Kimberling, <a href="/A279310/b279310.txt">Table of n, a(n) for n = 0..1000</a>

%e (1/1) + (1/1)x + (3/2)x^2 + (5/2)x^3 + ... ; 1/1, 1/1, 3/2, 5/2, ... = A279310/A279311.

%t z = 30; t = CoefficientList[Series[Cos[x]/(1 - x - x^2), {x, 0, z}], x];

%t Numerator[t] (* A279310 *)

%t Denominator[t] (* A279311 *)

%Y Cf. A279311.

%K nonn,easy,frac

%O 0,3

%A _Clark Kimberling_, Dec 11 2016