Найти сумму всех натуральных чисел меньших 1000, каждое из которых \ не делится ни на 3, ни на 5, ни на 7.
Ответ: 228434
Решение:
Plus @@ Select[ Range[999], (Mod[#, 3] != 0 && Mod[#, 5] != 0 && Mod[#, 7] != 0) &]