A279242 Numerators of coefficients in expansion of (sin x)/(1 + cos(sqrt(x))).

0, 1, 1, -1, -103, 29, 8671, 15361, -417031, -17815069, 1361877889, 21067460461, -679886788111, -31579084114577, 354886157315257, 2898608704594607, -569165778828429437, -167337689371017456229, 434029941439492698221, 33444404529041130465319

Offset

0,5

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. A279243.

Sequence in context: A225993 A237432 A370404 * A094095 A187882 A212542

Adjacent sequences: A279239 A279240 A279241 * A279243 A279244 A279245

Keyword

sign,frac,easy

Author

Clark Kimberling, Dec 11 2016

Status

approved