OFFSET
1,2
COMMENTS
Makowski and Schinzel proved that lim sup phi(sigma(n))/n = oo, thus this sequence is infinite.
LINKS
Andrzej Makowski and Andrzej Schinzel, On the functions phi(n) and sigma(n), Colloquium Mathematicae, Vol. 13, No. 1 (1964), pp. 95-99.
MATHEMATICA
a={}; rm=0; Do[r = EulerPhi[DivisorSigma[1, n]]/n; If[r>rm, rm=r; AppendTo[a, n]], {n, 1, 100000}]; a
PROG
(PARI) lista(nn) = {my(rmax = 0); for (n=1, nn, if ((r=eulerphi(sigma(n))/n) > rmax, rmax = r; print1(n, ", ")); ); } \\ Michel Marcus, Oct 18 2017
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Amiram Eldar, Oct 15 2017
EXTENSIONS
a(21)-a(23) from Robert G. Wilson v, Oct 16 2017
STATUS
approved