login
A279308
Numerators of coefficients in expansion of (1 + cos(sqrt x))/(cosh x).
2
2, -1, -23, 179, 15961, -375481, -77012099, 3667756091, 1363652668561, -109208405349361, -64265858394905339, 7770701878340584259, 6642366922974433027609, -102726453588460111393691, -1322873751136125749373458099, 15853417688720458694222368361
OFFSET
0,1
LINKS
EXAMPLE
(2/1) - (1/2)x - (23/24)x^2 + (179/720)x^3 + ... ; 0/1, -1/2, -23/24, 179/720, ... = A279308/A279309.
MATHEMATICA
z = 30; t = CoefficientList[Series[(1 + Cos[Sqrt[x]])/Cosh[x], {x, 0, z}], x];
Numerator[t] (* A279308 *)
Denominator[t] (* A279309 *)
CROSSREFS
Cf. A279309.
Sequence in context: A255861 A059360 A368016 * A345262 A108778 A271530
KEYWORD
easy,sign,frac
AUTHOR
Clark Kimberling, Dec 11 2016
STATUS
approved