A279256 Numerators of coefficients in expansion of (e^x)/(1 + cos(sqrt(x))).

1, 5, 19, 977, 4469, 214171, 457321, 925684673, 4949391841, 493402195453, 14167601252171, 57190922263627, 69165140252515309, 11615975003110672871, 547719474074019696919, 54367007962729782596209, 6786547315820425430115737, 1769764154745747063102330217

Offset

0,2

Links

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

Example

(1/2) + (5/8)x + (19/48)x^2 + (977/5760)x^3 + ... ; 1/2, 5/8, 19/48, 977/5760, ... = A279256/A279239.

Mathematica

z = 26; t = CoefficientList[Series[E^x/(1 + Cos[Sqrt[x]]), {x, 0, z}], x];
Numerator[t]   (* A279256 *)
Denominator[t] (* A279239 *)

Crossrefs

Cf. A279239.

Sequence in context: A095218 A119964 A270477 * A174490 A280034 A270486

Adjacent sequences: A279253 A279254 A279255 * A279257 A279258 A279259

Keyword

nonn,easy,frac

Author

Clark Kimberling, Dec 11 2016

Status

approved