OFFSET
1,1
MATHEMATICA
a = 0; Do[ If[ Length[ FactorInteger[n]] > 1 && EulerPhi[n]/n > a, a = EulerPhi[n]/n; Print[n]], {n, 1, 5000} ]
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Robert G. Wilson v, Oct 02 2001
STATUS
approved