Другими словами, на поиск одного простого числа с 5000 десятичных знака уходило приблизительно 2 часа.
Dmitriy40, я правильно понял, что вы искали
пару простых чисел, которые в сумме дают праймориал с

и нашли всего три простых числа вида

за 6 часов?
Другими словами, на поиск одного простого числа с 5000 десятичных знака уходило приблизительно 2 часа.
Вы совершенно неправильно поняли.
Dmitriy40 искал такие пары

,

, что оба числа

простые. Исследование двух значений

,

и частичное исследование третьего

заняло

часов времени, и никаких подходящих

найдено не было.
Следующий код в программе Wolfram Mathematica
Код:
PP = 1; k = 1; While[PP < 10^5000, k++; PP = PP*Prime[k]];
Print["k = ", k, ": ", Prime[k], ", ", Floor[Log10[PP] + 1]];
m = 0; MM = 1; TFp = TFm = True;
Print[Timing[While[TFp && TFm, m++; MM = 2 MM; If[MM > PP, Break[]];
TFm = ¬ PrimeQ[PP - MM]; TFp = ¬ PrimeQ[PP + MM]]]];
If[¬ TFm, Print[Prime[k], ("# - 2")^m]];
If[¬ TFp, Print[Prime[k], ("# + 2")^m]];
выдаёт такой результат:
Код:
k = 1404: 11699, 5004
{193.066838,Null}
11699# + 2^37
Если в предыдущем коде заменить число

на

, то результат будет такой:
Код:
k = 2585: 23167, 10001
{237.558323,Null}
23167# - 2^6
В фигурных скобках показано время выполнения программы в секундах. Как видите, первое "скорее всего простое" число

(

десятичные цифры), было найдено за

секунды (после поверки

чисел), а второе —

(

десятичная цифра) — за

секунд (после проверки

чисел).
Я подставил в показатель степени число

, и программа уже

часов считает и ничего не находит. Попробую дождаться результата. Можно попробовать написать скрипт для программы PFGW. Она специализированная и должна работать быстрее.
Метод проверки на простоту, который использует Wolfram Mathematica, корректно работает только для чисел, меньших

, а для бо́льших чисел он иногда (очень редко) может ошибаться, поэтому это те самые "скорее всего простые". То же самое касается программы PFGW: она может доказать простоту очень большого числа, если это число удовлетворяет определённым условиям, но ваши числа к таким не относятся; однако проверку она устраивает серьёзную.
В принципе простоту чисел (до

, если не ошибаюсь) может доказывать программа PRIMO, о которой я
писал.