OFFSET
1,3
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10
MATHEMATICA
a[n_] := Denominator[Sum[k!, {k, 0, n}]/Sum[Binomial[n, k]!, {k, 0, n}]]; Array[a, 8] (* Amiram Eldar, Sep 21 2019 *)
PROG
(PARI) a(n) = denominator(sum(k=0, n, k!)/sum(k=0, n, binomial(n, k)!)); \\ Michel Marcus, Oct 12 2017
CROSSREFS
KEYWORD
nonn,frac
AUTHOR
Vladimir Shevelev, Oct 09 2017
EXTENSIONS
More terms from Peter J. C. Moses, Oct 09 2017
STATUS
approved