%I #5 Dec 12 2016 09:16:04
%S 0,1,1,-1,-103,29,8671,15361,-417031,-17815069,1361877889,21067460461,
%T -679886788111,-31579084114577,354886157315257,2898608704594607,
%U -569165778828429437,-167337689371017456229,434029941439492698221,33444404529041130465319
%N Numerators of coefficients in expansion of (sin x)/(1 + cos(sqrt(x))).
%H Clark Kimberling, <a href="/A279242/b279242.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. A279243.
%K sign,frac,easy
%O 0,5
%A _Clark Kimberling_, Dec 11 2016