Пример 1
Пример 1
С помощью системы Mathematica можно почти мгновенно убедиться, что это число составное.
PrimeQ[M5011] False Однако неплохо было бы найти хотя бы какой-нибудь его делитель.
m=FactorIntegerECM[M5011]
Системе Mathematica потребуется менее 36 секунд, чтобы найти делитель m = 80177. Теперь проверим, прост ли найденный делитель.
PrimeQ[m] True
Оказывается, да! Есть шансы разложить 5011-е число Мерсенна M5011 на простые множители? Давайте попытаемся. Для этого разделим 5011-е число Мерсенна Мт] на найденный делитель.