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

1, 2, 8, 16, 5760, 26880, 14515200, 958003200, 55794106368, 41845579776000, 25609494822912000, 4865804016353280000, 2997335274073620480000, 1240896803466478878720000, 537721948168807514112000000, 26512029966235987869696000000

Offset

0,2

Links

Clark Kimberling, Table of n, a(n) for n = 0..1000

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

Adjacent sequences: A279240 A279241 A279242 * A279244 A279245 A279246

Keyword

nonn,easy,frac

Author

Clark Kimberling, Dec 11 2016

Status

approved