STATUS
reviewed
approved
reviewed
approved
proposed
reviewed
editing
proposed
G. C. Greubel, <a href="/A165912/b165912.txt">Table of n, a(n) for n = 1..3300</a>
approved
editing
proposed
approved
editing
proposed
a(n) = 2*(sum_{d|n, n/d != 0 mod 3} mu(n/d)*(2^d - (-1)^d))/(3n).
proposed
editing
editing
proposed
a[n_] := 2*DivisorSum[n, Boole[Mod[n/#, 3] != 0] MoebiusMu[n/#]*(2^# - (-1)^#) &]/(3 n); Array[a, 40] (* Jean-François Alcover, Dec 03 2015, adapted from PARI *)
approved
editing
reviewed
approved