login
A279243
Denominators of coefficients in expansion of (sin x)/(1 + cos(sqrt(x))).
2
1, 2, 8, 16, 5760, 26880, 14515200, 958003200, 55794106368, 41845579776000, 25609494822912000, 4865804016353280000, 2997335274073620480000, 1240896803466478878720000, 537721948168807514112000000, 26512029966235987869696000000
OFFSET
0,2
LINKS
EXAMPLE
(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.
MATHEMATICA
z = 26; t = CoefficientList[Series[Sin[x]/(1 + Cos[Sqrt[x]]), {x, 0, z}], x];
Numerator[t] (* A279242 *)
Denominator[t] (* A279243 *)
CROSSREFS
Cf. A279242.
Sequence in context: A308613 A006573 A009662 * A162218 A103086 A192155
KEYWORD
nonn,easy,frac
AUTHOR
Clark Kimberling, Dec 11 2016
STATUS
approved