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