4 lines
92 B
Text
4 lines
92 B
Text
Fold[
|
|
Last[SortBy[{#1, {#2, Length@ProperDivisors[#2]}}, Last]] &,
|
|
{0, 0},
|
|
Range[20000]]
|