Поиск отрезков натурального ряда, состоящих только из составных чисел
И, наконец, нарисуем график на интервале (1.1 000 000).
Конечно, похоже. Но не более, чем статистика на правду…
Пример 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 для построения графика.
А вот график для n = 10000.
