上面代码有误:Position[t = Length /@ RealDigits[1/Range@9999][[All, 1, 1]], Max[t]] // Timing或者Ordering[Length /@ RealDigits[1/Range@9999][[All, 1, 1]], -1] // Timing效率有待提高
若1/n的循环节为x99999...x的长度.9/x必为整数
没有考虑效率,代码如下Sort // First // Last]}, {ii, 1, 1000}], #1[[2]] > #2[[2]] &]
Position[t = Length /@ Flatten /@ RealDigits[1/Range@999][[All, 1]], Max[t]]
就是983。