OFFSET
0,5
LINKS
FORMULA
Moebius transform of A128014. - Andrew Howroyd, Sep 28 2017
MATHEMATICA
a[0] = 1;
a[n_] := DivisorSum[n, MoebiusMu[n/#] Binomial[# - Mod[#, 2], Quotient[#, 2]]&];
Table[a[n], {n, 0, 34}] (* Jean-François Alcover, Jul 02 2018, after Andrew Howroyd *)
PROG
(PARI) a(n) = if(n<1, n>=0, sumdiv(n, d, moebius(n/d) * binomial(d-d%2, d\2))); \\ Andrew Howroyd, Sep 28 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved