A279307 Numerators of coefficients in expansion of (sinh x)/(1 + cos(sqrt(x))).

0, 1, 1, 5, 137, 647, 22951, 328201, 26965819, 135880897, 37044323689, 91760237711, 250120070812867, 235374750708709, 38112363401091809, 1747698886011364219, 2880212454433162868027, 1444514603466022486187, 54349494835431693600323

Offset

0,4

Links

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

Example

(0/1) + (1/2)x + (1/8)x^2 + (5/48)x^3 + ... ; 0/1, 1/2, 1/8, 5/48, ... = A279307/A279239.

Mathematica

z = 30; t = CoefficientList[Series[Sinh[x]/(1 + Cos[Sqrt[x]]), {x, 0, z}], x];
Numerator[t]   (* A279307 *)
Denominator[t] (* A279239 *)

Crossrefs

Cf. A279239.

Sequence in context: A215958 A216337 A142294 * A265875 A248523 A159546

Adjacent sequences: A279304 A279305 A279306 * A279308 A279309 A279310

Keyword

nonn,easy,frac

Author

Clark Kimberling, Dec 11 2016

Status

approved