6 lines
85 B
Text
6 lines
85 B
Text
|
Last@SortBy[
|
||
|
|
Table[
|
||
|
|
{n, Length@ProperDivisors[n]},
|
||
|
|
{n, 1, 20000}],
|
||
|
|
Last]
|