OFFSET
1,1
COMMENTS
k is the first occurrence of n in A098018.
MATHEMATICA
f[n_] := Plus @@ MoebiusMu[ Drop[ Divisors[n], 1] - 1]; t = Table[0, {100}]; Do[ a = f[n]; If[Positive[a] && a < 101 && t[[a]] == 0, t[[a]] = n], {n, }]; t
CROSSREFS
KEYWORD
nonn
AUTHOR
Leroy Quet and Robert G. Wilson v, Nov 03 2004
STATUS
approved