shust писал(а):
Руст писал(а):
Доказательство простоты числа порядка 10 в 100-й степени занимает минуты.
Можете указать первое простое число, большее 10 в 100-й степени, или на худой конец дать ссылку на источник, где достоверно показано, что процесс отыскания такого числа
Цитата:
занимает минуты
?
Mathematica 5.1
Timing[For[k = 0, k < 251, k++, If[PrimeQ[10^100 + 2 k + 1], Print[10^100 + 2 k + 1]]]]100000000000000000000000000000000000000000000000000000000000000000000000000000\
00000000000000000000267
{0.141 Second, Null}
Timing[For[k = 0, k < 251, k++, If[PrimeQ[10^200 + 2 k + 1], Print[10^200 + 2 k + 1]]]]100000000000000000000000000000000000000000000000000000000000000000000000000000\
000000000000000000000000000000000000000000000000000000000000000000000000000000\
000000000000000000000000000000000000000000357
{0.411 Second, Null}
Timing[For[k = 0, k < 251, k++, If[PrimeQ[10^300 + 2 k + 1], Print[10^300 + 2 k + 1]]]]100000000000000000000000000000000000000000000000000000000000000000000000000000\
000000000000000000000000000000000000000000000000000000000000000000000000000000\
000000000000000000000000000000000000000000000000000000000000000000000000000000\
0000000000000000000000000000000000000000000000000000000000000000331
100000000000000000000000000000000000000000000000000000000000000000000000000000\
000000000000000000000000000000000000000000000000000000000000000000000000000000\
000000000000000000000000000000000000000000000000000000000000000000000000000000\
0000000000000000000000000000000000000000000000000000000000000000387
{0.851 Second, Null}
Timing[For[k = 0, k < 251, k++, If[PrimeQ[10^400 + 2 k + 1], Print[10^400 + 2 k + 1]]]]100000000000000000000000000000000000000000000000000000000000000000000000000000\
000000000000000000000000000000000000000000000000000000000000000000000000000000\
000000000000000000000000000000000000000000000000000000000000000000000000000000\
000000000000000000000000000000000000000000000000000000000000000000000000000000\
000000000000000000000000000000000000000000000000000000000000000000000000000000\
00000000069
{0.941 Second, Null}
Правда, функция PrimeQ не делает полного доказательства простоты. Полное доказательство требует больше времени:
<< NumberTheory`PrimeQ`Timing[ProvablePrimeQ[10^100+267]]{4.617 Second, True}
Timing[ProvablePrimeQ[10^200+357]]{100.034 Second, True}
Специализированные программы типа Primo делают это гораздо быстрее.
shust писал(а):
Рекордные простые числа этих сайтов не произвольного вида, а определеные некоторыми формулами. Возможно такое их представление и помогло установить эти рекорды.
Нет, там же написано: используется метод эллиптических кривых. Этот метод - универсальный. А специальные и несравненно более быстрые методы используются для проверки таких чисел, для которых у чисел
удаётся найти достаточно большое количество простых множителей.