Ordering[Map[(#/EulerPhi[#])&, Range[1, 1000000]], -1]

Ordering[Map[(#/EulerPhi[#])&, Range[1, 10]], -1]