OFFSET
1,2
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..127
MATHEMATICA
a={}; rm=2; Do[r=EulerPhi[DivisorSigma[1, n]]/n; If[r<rm, rm=r; AppendTo[a, n]], {n, 1, 100000}]; a
CROSSREFS
KEYWORD
nonn
AUTHOR
Amiram Eldar, Oct 15 2017
STATUS
approved