|
%I #7 Dec 10 2016 22:39:04
%S 1,1,1,1,-17,-11,-1079,-18197,522343,9746101,81040793,11644041203,
%T -4125329557,-307899664572491,-2016123696536039,-16774330027463,
%U 2515861894697661407,1393885832035349216101,10228935377594654887237,12758279004615697800956803
%N Numerators of coefficients in expansion of 1/(2 + cos(sqrt(x))).
%H Clark Kimberling, <a href="/A279232/b279232.txt">Table of n, a(n) for n = 0..1000</a>
%e (1/3) + (1/18)x + (1/216)x^2 + (1/6480)x^3 - (17/1088640)x^4 + ... ; 1/3, 1/18, 1/216, 1/6480, -17/1088640, ... = A279232/A279233.
%t z = 26; t = CoefficientList[Series[1/(2 + Cos[Sqrt[x]]), {x, 0, z}], x];
%t Numerator[t] (* A279232 *)
%t Denominator[t] (* A279233 *)
%t %/3 (* A279234 *)
%Y Cf. A279233, A279234.
%K sign,easy,frac
%O 0,5
%A _Clark Kimberling_, Dec 08 2016
|
