login
A279242
Numerators of coefficients in expansion of (sin x)/(1 + cos(sqrt(x))).
2
0, 1, 1, -1, -103, 29, 8671, 15361, -417031, -17815069, 1361877889, 21067460461, -679886788111, -31579084114577, 354886157315257, 2898608704594607, -569165778828429437, -167337689371017456229, 434029941439492698221, 33444404529041130465319
OFFSET
0,5
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. A279243.
Sequence in context: A225993 A237432 A370404 * A094095 A187882 A212542
KEYWORD
sign,frac,easy
AUTHOR
Clark Kimberling, Dec 11 2016
STATUS
approved