Ordering[Table[Length@First@First@RealDigits[1/x], {x,1,1000}], -1]