Алгебра в программе Mathematica


         

Однако полезнее эту функцию модифицировать



Пример 2


Однако полезнее эту функцию модифицировать так, чтобы она выводила на печать только длину отрезка и его начало.
CompositeRunsStart[n_Integer?Positive]:=Block[{pi,p2=3,i=2}, While[(pi,p2}={p2,Prime[++i]}; p2-pl<n+l];Print[{n,pl-H}]]
Тогда вывод выглядел бы так (конец обрезан).

Содержание  Назад  Вперед