OFFSET
0,4
FORMULA
Moebius transform of A045629 (Christian Bower).
MATHEMATICA
A045629[n_] := If[n == 0, 1, (1/(2n)) DivisorSum[n, EulerPhi[n/#] Binomial[ 2#-1, #-1] + EulerPhi[2(n/#)] 2^(#-1)&]];
a[n_] := If[n == 0, 1, Sum[MoebiusMu[n/d] A045629[d], {d, Divisors[n]}]];
Table[a[n], {n, 0, 27}] (* Jean-François Alcover, Aug 28 2019 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved