OFFSET
1,2
FORMULA
Sum_{d|n} mu(n/d)*(d+1)*2^(d-2).
G.f.: Sum_{k>=0} mu(k)*x^k*(1-x^k)/(1-2*x^k)^2.
MATHEMATICA
f[n_] := Block[{d = Divisors[n]}, (Plus @@ (MoebiusMu[n/d]*(d + 1)*2^(d - 2)))]; Table[ f[n], {n, 1, 30}]
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Vladeta Jovovic, Aug 13 2003
EXTENSIONS
More terms from Robert G. Wilson v, Aug 15 2003
STATUS
approved