А сейчас, если мы приложим паттерн с числа
, то все числа, делящиеся на
, мы аккуратно обойдем.
Теперь понимаю, откуда в формуле для первого члена кортежа, определяемого по заданному паттерну, появляется праймориал.
Вот для этого паттерна
Код:
0 4 6 10 12 22 24 34 36 40 42 46
у меня получается такая формула для первого члена кортежа:
[Никак не найду, как тут набирать в формуле праймориал, 2310 это 11#]
Не ошиблась?
В Wolfram Alpha эта формула даёт, например, такие решения:
Код:
matrix(table[Select[Range[0,200],PrimeQ[(n*2310+1447)+#]&],{n,1,4}])
n |
1 | {4, 10, 12, 22, 36, 40, 46, 64, 66, 76, 90, 94, 96, 106, 120, 124, 132, 150, 154, 160, 162, 166, 172, 174, 186, 190}
2 | {0, 6, 12, 22, 24, 34, 46, 54, 64, 66, 76, 84, 96, 106, 130, 132, 136, 144, 150, 154, 162, 180, 190, 196}
3 | {0, 10, 12, 42, 46, 52, 54, 66, 70, 84, 90, 124, 136, 144, 150, 160, 162, 166, 186, 196}
4 | {0, 4, 22, 24, 36, 42, 46, 52, 66, 84, 94, 102, 112, 144, 150, 160, 166, 172, 174, 180, 196}
Ещё:
Код:
matrix(table[Select[Range[0,150],PrimeQ[(n*2310+1447)+#]&],{n,900,908}])
903 | {0, 4, 6, 10, 12, 22, 42, 66, 76, 84, 90, 106}
Интересное решение: хорошо уже паттерну соответствует.
По формуле для данного случая получаем:
Проверяю:
Код:
Select[Range[0,106],PrimeQ[2087377+#]&]
{0, 4, 6, 10, 12, 22, 42, 66, 76, 84, 90, 106}
Вроде всё правильно. Или только
вроде?
Ну, в WA у меня не получилось найти что-то более близкое к решению.
Тогда написала свою программку. По программе удалось найти такое неполное решение:
Код:
8101777 8101781 8101783 8101787 8101789 8101799 8101801 8101811 0 0 0 0
Программа у меня плохая, проверила до 50 миллионов, полное решение не нашла.
Генерировала простые числа порциями в интервалах длины 5 миллионов и проверяла, могла что-то пропустить, полуавтоматическая работа.
А интересное решение получилось: вставить в конце три не простых числа, а последнее число будет простое:
Код:
8101777 8101781 8101783 8101787 8101789 8101799 8101801 8101811 8101813* 8101817* 8101819* 8101823
Соответствие паттерну точное, но в решении три не простых числа (они отмечены звёздочкой).
Решение с тремя "дырками"
Проверка:
Код:
Select[Range[0,90],PrimeQ[8101777+#]&]
{0, 4, 6, 10, 12, 22, 24, 34, 46, 54, 82, 90}