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

Author

Clark Kimberling, Dec 11 2016

Keywords

• nonn
• easy
• frac

Examples

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

Links

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

Crossrefs

Cf. A279239.

Programs

Mathematica

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