RosettaCodeData/Task/Proper-divisors/J/proper-divisors-4.j
2023-07-01 13:44:08 -04:00

3 lines
81 B
Text

(, #@properDivisors)&> 1+I.(= >./) #@factors@> 1+i.20000
15120 79
18480 79