OFFSET
1,2
COMMENTS
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..500
MATHEMATICA
f[n_] := Block[{d = Divisors[n]}, Plus @@ (MoebiusMu[n/d](2^DivisorSigma[0, d] - 1))]; b = 0; l = {}; Do[c = a[n]; If[c > b, b = c; AppendTo[l, n]], {n, 10^6}]; l (* Robert G. Wilson v, Aug 13 2004 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Matthew Vandermast, Aug 07 2004
EXTENSIONS
More terms from Robert G. Wilson v, Aug 13 2004
STATUS
approved