OFFSET
0,2
FORMULA
Denominators 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}] // Denominator
nmax = 15; CoefficientList[Series[Cosh[Sqrt[x]]/(1 - x), {x, 0, nmax}], x] // Denominator
PROG
(PARI) a(n) = denominator(sum(k=0, n, 1/(2*k)!)); \\ Michel Marcus, May 24 2022
(Python)
from fractions import Fraction
from math import factorial
def A354335(n): return sum(Fraction(1, factorial(2*k)) for k in range(n+1)).denominator # Chai Wah Wu, May 24 2022
CROSSREFS
KEYWORD
nonn,frac
AUTHOR
Ilya Gutkovskiy, May 24 2022
STATUS
approved