A279243 - OEIS

%I #4 Dec 12 2016 09:16:09

%S 1,2,8,16,5760,26880,14515200,958003200,55794106368,41845579776000,

%T 25609494822912000,4865804016353280000,2997335274073620480000,

%U 1240896803466478878720000,537721948168807514112000000,26512029966235987869696000000

%N Denominators of coefficients in expansion of (sin x)/(1 + cos(sqrt(x))).

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

%e (0/1) + (1/2)x + (1/8)x^2 - (1/16)x^3 - (103/5760)x^3 + ... ; 1/2, 1/3, 1/8, -1/16, ... = A279242/A279243.

%t z = 26; t = CoefficientList[Series[Sin[x]/(1 + Cos[Sqrt[x]]), {x, 0, z}], x];

%t Numerator[t]   (* A279242 *)

%t Denominator[t] (* A279243 *)

%Y Cf. A279242.

%K nonn,easy,frac

%O 0,2

%A _Clark Kimberling_, Dec 11 2016