OFFSET
0,2
FORMULA
Numerators of coefficients in expansion of cosh(sqrt(x)) / (1 - x).
EXAMPLE
1, 3/2, 37/24, 1111/720, 6913/4480, 799933/518400, 739138093/479001600, ...
MATHEMATICA
Table[Sum[1/(2 k)!, {k, 0, n}], {n, 0, 15}] // Numerator
nmax = 15; CoefficientList[Series[Cosh[Sqrt[x]]/(1 - x), {x, 0, nmax}], x] // Numerator
Accumulate[1/(2*Range[0, 20])!]//Numerator (* Harvey P. Dale, Sep 05 2024 *)
PROG
(PARI) a(n) = numerator(sum(k=0, n, 1/(2*k)!)); \\ Michel Marcus, May 24 2022
(Python)
from fractions import Fraction
from math import factorial
def A354334(n): return sum(Fraction(1, factorial(2*k)) for k in range(n+1)).numerator # Chai Wah Wu, May 24 2022
CROSSREFS
KEYWORD
nonn,frac
AUTHOR
Ilya Gutkovskiy, May 24 2022
STATUS
approved