Поиск отрезков натурального ряда, состоящих только из составных чисел
Хотя мы и получили довольно интересные результаты, завершение вычислений было несколько неожиданным. Давайте попробуем с основанием 7.
base=7; Do[Print[{n, LargestPrimeGap[base ^ n]}], {n, 2.15}] {2.6} {3.14} {4.34} {5.44} {6.72} {7.114} {8.154} {9.210}На сей раз предупреждение не появилось, но вычисления пришлось прервать. На экране Диспетчера задач Windows хорошо видно плато, где загрузка ЦП высока, и почти отвесное ее падение (рис. 5.2).
Рис. 5.2. Отчетливо видно плато Высокой производительности, рассеченное, правда, Каньоном вспомогательных действий. Плато Высокой производительности имеет почти отвесные обрывы
Наконец, проведем вычисления для основания, равного 10.
base=10; Do[Print[{n, LargestPrimeGap[base ^ n]}], {n, 2.12}] {2.8} {3.20} {4.36} {5.72} {6.114} {7.154} {8.220} No more memory available. Mathematica kernel has shut down. Try quitting other applications and then retry.На этот раз основание довольно велико, и картина на экране Диспетчера задач Windows очень отчетливая (рис. 5.3).
Рис. 5.3. Отчетливо видно не только плато Высокой производительности, но и почти отвесный обрыв Холма увеличения файла подкачки, связанный с завершением работы системы Mathematica