RosettaCodeData/Task/Proper-divisors/Mathematica/proper-divisors-2.math
2023-07-01 13:44:08 -04:00

1 line
47 B
Text

Grid@Table[{n, ProperDivisors[n]}, {n, 1, 10}]