|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
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
|
|
|
STATUS
|
approved
|
|
|
|