1 line
69 B
Text
1 line
69 B
Text
Take[Select[Range[10000], Divisible[#, Length[Divisors[#]]] &], 100]
|
Take[Select[Range[10000], Divisible[#, Length[Divisors[#]]] &], 100]
|