Если K имеет коэффициент 2 или 5, то 10 ^ N + K является составным.Это позволяет быстро протестировать небольшое количество.Большие простые числа таковы, что P mod 6 = 1 или 5. Вы можете использовать это, чтобы исключить 2/3 возможных значений K.Немного поработав, вы можете настроить колесо 2-4, чтобы избежать большого количества делений:
increment <- either 2 or 4 as required
repeat
K <- K + increment
increment <- 6 - increment
if (K mod 5 = 0) then
continue
endif
until (isPrime(10^N + K) or (K > 500))
Пробный коэффициент до 10000 в случае штрафа.Вы сначала строите список простых чисел до 10 000?Используйте сито Эратосфена, чтобы создать список, и просто считайте цифры.
Запуск Fermat Test Base 2 - хорошее начало, он находит достаточно много композитов достаточно быстро.реализовать вероятностный тест Миллера-Рабина и запускать его достаточное количество раз, чтобы повысить вероятность отказа вашего оборудования, а не составного числа.