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