OFFSET
0,4
LINKS
Harvey P. Dale, Table of n, a(n) for n = 0..449
MATHEMATICA
Table[n!(1/Binomial[n, 0]-Sum[1/Binomial[n, d], {d, Floor[n/2]}]), {n, 0, 30}] (* Harvey P. Dale, Feb 03 2024 *)
PROG
(PARI) a(n) = n!*(1 - sum(k=1, floor(n/2), 1/binomial(n, k))); \\ Michel Marcus, Jul 10 2019
CROSSREFS
KEYWORD
nonn
AUTHOR
EXTENSIONS
More terms from Sean A. Irvine, Jul 10 2019
STATUS
approved