login
A293711
Numbers k such that phi(sigma(k))/k < phi(sigma(m))/m for all m < k, where sigma is the sum of divisors function (A000203) and phi is Euler's totient function (A000010).
1
1, 3, 5, 11, 17, 23, 29, 59, 89, 149, 179, 239, 269, 359, 377, 389, 419, 839, 1049, 1259, 1889, 2099, 2309, 9239, 11549, 13859, 20789, 23099, 25409, 30029, 90089, 180179, 210209, 270269, 300299, 330329, 390389, 420419, 540539, 570569, 1017917, 1018013, 1021019
OFFSET
1,2
LINKS
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