|
%I #6 Dec 10 2016 22:39:10
%S 3,18,216,6480,1088640,3628800,4311014400,2353813862400,
%T 564915326976000,57621363351552000,5971668565524480000,
%U 30348019649995407360000,75801388447047352320000,32666608351255056482304000000,2743995101505424744513536000000
%N Denominators of coefficients in expansion of 1/(2 + cos(sqrt(x))).
%H Clark Kimberling, <a href="/A279233/b279233.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. A279232, A279234.
%K nonn,easy,frac
%O 0,1
%A _Clark Kimberling_, Dec 08 2016
|
