Untitled

Найти наименьшее число, которое делится на все натуральные числа \ меньшие 25.

Ответ: 16062686640

Решение:

aa = 2^4*3^2*5*11*13*17*19*21*23 For[i = 1, i <= 24, i++, Print[i, Divisible[aa, i]]]