OFFSET
1,1
MATHEMATICA
f[x_] := DivisorSigma[0, EulerPhi[x]]-EulerPhi[DivisorSigma[0, x]] t=Table[0, {100}]; Do[s=f[n]; If[s<101&&t[[s]]==0, t[[s]]=n], {n, 1, 100000}]; t
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Labos Elemer, Nov 26 2002
STATUS
approved