OFFSET
0,27
LINKS
Amiram Eldar, Table of n, a(n) for n = 0..10000
MATHEMATICA
f1[p_, e_] := 1 + Floor[e/2]; f2[p_, e_] := 2^(1 - Mod[e, 2]); a[0] = a[1] = 0; a[n_] := Times @@ f1 @@@ (fct = FactorInteger[Binomial[n, Floor[n/2]]]) - Times @@ f2 @@@ fct; Array[a, 60, 0]
PROG
(PARI) a(n) = {my(e = factor(binomial(n, n\2))[, 2]); vecprod(apply(x -> x\2 + 1, e)) - vecprod(apply(x -> 1 << (1 - x%2), e)); }
CROSSREFS
KEYWORD
nonn
AUTHOR
Amiram Eldar, Sep 28 2024
STATUS
approved