Иллюстрированный самоучитель по Mathematica 5

Поиск отрезков натурального ряда, состоящих только из составных чисел

И, наконец, нарисуем график на интервале (1.1 000 000).

Иллюстрированный самоучитель по Mathematica 5 › Арифметика: простые числа › Поиск отрезков натурального ряда, состоящих только из составных чисел

Конечно, похоже. Но не более, чем статистика на правду…

Пример 5.9.
График разностей между последовательными простыми числами.

Давайте теперь построим график разностей между последовательными простыми числами. Сначала мы используем функции Table и Prime для построения таблицы t 1 (точнее, списка) первых n простых чисел.

t1 = Table[Prime[k], {k, 1, n = 10 ^ 5}];

Теперь составим таблицу t2 (тоже список) разностей между последовательными простыми числами.

t2 = Table[t1[[i + 1]] - t1[[i]], {i, 1, Length[t1] - 1}];

Наконец, мы можем использовать функцию ListPlot для построения графика.

Иллюстрированный самоучитель по Mathematica 5 › Арифметика: простые числа › Поиск отрезков натурального ряда, состоящих только из составных чисел

А вот график для n = 10000.

Иллюстрированный самоучитель по Mathematica 5 › Арифметика: простые числа › Поиск отрезков натурального ряда, состоящих только из составных чисел

Если Вы заметили ошибку, выделите, пожалуйста, необходимый текст и нажмите CTRL + Enter, чтобы сообщить об этом редактору.