Ой, моя первая функция :)

{ffff(p)=p;
b=vector(9);
c=vector(9);
for( i=1,9,
b[i]=p[i+5];); 
for( k=1,9,
c[k]=b[k]-b[1];);
print(c); 

return(p);}

Спасибо gris, показал, как писать функции в PARI/GP.
Ему-то хорошо: он на форуме dxdy.ru спрашивает, что и как надо писать.
Там отвечают спецы по PARI/GP.
А мне спрашивать негде.

PS. Выделение подпаттернов 9-ок из паттернов 19-ок, наверное, можно и без функции сделать.
Но мне захотелось попробовать с помощью функции.

Д-у-м-а-ю...
Никак не могу сообразить.
Может, и неправильно оставлять только паттерны 19-ок, содержащие различные паттерны центральных 9-ок?

Ой, ладно, подумаю об этом завтра :))

На Ахиллесе завершилось тестирование программы обработки 2368 паттернов с диаметром 480.
Интервал тестировался маленький - 30000.
Обратите внимание: здесь не все теоретические паттерны, а только небольшая часть.

Найдена одна центральная 9-ка

(21:55) gp > \r procedura.txt
(21:55) gp > \r d480_9ki_2368patterns.txt
   log = 1 (on)
   [logfile is "rez_d480_9ki_2368patterns.txt"]
  ***   Warning: new stack size = 536870912 (512.000 Mbytes).
range of search
500247000001 (p=4852240823439699690 )
500247030000 (p=4852241114420700000 )
4852241012561015833, 4852241012561015839, 4852241012561015851, 4852241012561015869, 4852241012561015881,
4852241012561015893, 4852241012561015911, 4852241012561015923, 4852241012561015929,

4852241012561015641,
4852241012561015699,
4852241012561015701,
4852241012561015741,
4852241012561015771,
4852241012561015833,
4852241012561015839,
4852241012561015851,
4852241012561015869,
4852241012561015881,
4852241012561015893,
4852241012561015911,
4852241012561015923,
4852241012561015929,
4852241012561015959,
4852241012561015963,
4852241012561015987,
4852241012561015993,
4852241012561016043,
4852241012561016083,

4852241012561015641, 4852241012561015713, 4852241012561015719, 4852241012561015761, 4852241012561015803,
4852241012561015833, 4852241012561015839, 4852241012561015851, 4852241012561015869, 4852241012561015881,
4852241012561015893, 4852241012561015911, 4852241012561015923, 4852241012561015929, 4852241012561015959,
4852241012561016001, 4852241012561016043, 4852241012561016049, 4852241012561016121,

Вписанных последовательных простых чисел 20 шт.
Что называется - перебор.
Но есть же куда вписываться! Диаметр позволяет.
Во-первых, 9-ка продолжается до 11-ки в одну сторону.

11-ка с одной «дыркой»

{4852241012561015771,
4852241012561015833,
4852241012561015839,
4852241012561015851,
4852241012561015869,
4852241012561015881,
4852241012561015893,
4852241012561015911,
4852241012561015923,
4852241012561015929,
4852241012561015959}

Во-вторых, если отбросить лишнее (последнее) простое число, получается вполне себе симметричная 19-ка из последовательных простых чисел, но сильно дырявая :)

19-ка с 8 «дырками»

{4852241012561015641,
4852241012561015699,
4852241012561015701,
4852241012561015741,
4852241012561015771,
4852241012561015833,
4852241012561015839,
4852241012561015851,
4852241012561015869,
4852241012561015881,
4852241012561015893,
4852241012561015911,
4852241012561015923,
4852241012561015929,
4852241012561015959,
4852241012561015963,
4852241012561015987,
4852241012561015993,
4852241012561016043}

Главное - центральная 9-ка по центру вписалась, как ей и положено.
8 элементов кортежа не легли в паттерн, а 11 элементов - легли!

Вот такой результат для самого большого пока у меня диаметра 480.

Цитата

Д-у-м-а-ю...
Никак не могу сообразить.
Может, и неправильно оставлять только паттерны 19-ок, содержащие различные паттерны центральных 9-ок?

Ой, ладно, подумаю об этом завтра :))

Подумала... и так, и сяк прикинула...
Очень тонкий момент и ускользает - зараза!
Вот есть два паттерна 19-ки, в которых содержатся одинаковые паттерны центральных 9-ок.
Но паттерны-то 19-ок разные и векторы формул для них разные.
Нет, нельзя выбрасывать паттерны 19-ок, в которых содержатся одинаковые паттерны центральных 9-ок.
Таков мой вердикт.

Цитата

Ура! Прогресс!
Найдена первая полная 11-ка!
Программа обработки всех 190 теоретических паттернов с диаметром 384.

А вот это замечательно!
Буду-ка я искать центральные 11-ки.
Центральных 9-ок находится довольно много (для разных диаметров, не для минимального), но почти все они не продолжаются даже до хромой 11-ки.
Значит, никакого интереса не представляют.

Для перехода к поиску центральных 11-ок надо только немножко подкорректировать функцию gris.
И больше ничего не надо делать.
Вот как удобно с функцией!
Функция gris выше показана.
Сейчас займусь её корректировкой, там мало будет изменений.

PS. Для минимального диаметра 252 пока буду продолжать искать центральные 9-ки.

В сообщении
https://boinc.progger.info/odlk/forum_thread.php?id=237&postid=11301
показана первая полная 11-ка, найденная программой обработки всех 190 теоретических паттернов с диаметром 384.
Программа завершилась.
Найдено 12 центральных 9-ок.
Подтверждение, что центральных 9-ок находится довольно много.

Покажу интересное решение

4852104073858432201, 4852104073858432231, 4852104073858432249, 4852104073858432273, 4852104073858432291,
4852104073858432309, 4852104073858432333, 4852104073858432351, 4852104073858432381, 

4852104073858432099, 
4852104073858432151, 
4852104073858432189, 
4852104073858432201, 
4852104073858432231, 
4852104073858432249, 
4852104073858432273, 
4852104073858432291, 
4852104073858432309, 
4852104073858432333, 
4852104073858432351, 
4852104073858432381, 
4852104073858432393, 
4852104073858432427, 
4852104073858432439, 
4852104073858432463, 

4852104073858432099, 4852104073858432123, 4852104073858432141, 4852104073858432159, 4852104073858432189,
4852104073858432201, 4852104073858432231, 4852104073858432249, 4852104073858432273, 4852104073858432291,
4852104073858432309, 4852104073858432333, 4852104073858432351, 4852104073858432381, 4852104073858432393,
4852104073858432423, 4852104073858432441, 4852104073858432459, 4852104073858432483,

Во-первых, эта 9-ка продолжается до полной 11-ки:

{4852104073858432189, 
4852104073858432201, 
4852104073858432231, 
4852104073858432249, 
4852104073858432273, 
4852104073858432291, 
4852104073858432309, 
4852104073858432333, 
4852104073858432351, 
4852104073858432381, 
4852104073858432393}

Красота!
Во-вторых, тут имеется 15-ка с 3 «дырками» ("дырки", как всегда, выделены красным цветом)

{4852104073858432099,
4852104073858432151,
4852104073858432189,
4852104073858432201,
4852104073858432231,
4852104073858432249,
4852104073858432273,
4852104073858432291,
4852104073858432309,
4852104073858432333,
4852104073858432351,
4852104073858432381,
4852104073858432393,
4852104073858432427,
4852104073858432439}

Всего три элемента кортежа не легли в паттерн.
Правильная 15-ка в полном соответствии с паттерном выглядит так

{4852104073858432099, *4852104073858432159, 4852104073858432189, 4852104073858432201, 4852104073858432231,
4852104073858432249, 4852104073858432273, 4852104073858432291, 4852104073858432309, 4852104073858432333,
4852104073858432351, 4852104073858432381, 4852104073858432393, *4852104073858432423, *4852104073858432483}

Элементы, помеченные звёздочкой, не являются простыми числами.
Паттерн 15-ки

0, 60, 90, 102, 132, 150, 174, 192, 210, 234, 252, 282, 294, 324, 384

Ахиллес-3 завершил тестирование программы обработки всех 3401 теоретических паттернов с диаметром 444.

   [logfile is "rez_d444_9ki_all.txt"]
  ***   Warning: new stack size = 536870912 (512.000 Mbytes).
range of search
500247000001 (p=4852240823439699690 )
500247030000 (p=4852241114420700000 )
. . . . . . . . 
time = 73h, 56min, 50,156 ms.

Почти 74 часа выполнялась программа.
Интервал малюсенький - 30000.
Ну, паттернов много!
Центральных 9-ок найдено штук 10; сейчас проверю их, есть ли хоть хроменькая 11-ка.

Сегодня много результатов, никак не дойдут руки до корректировки функции gris - чтобы перейти к поиску центральных 11-ок.

gris,
помогайте :)

Проверила результаты с диаметром 444.
Нет даже хроменькой 11-ки.

Не перезапустила эту программу на поиск центральных 9-ок.
Сейчас подкорректирую функцию gris и запущу эту программу с новой функцией - на поиск центральных 11-ок.

Тут ещё дождичку весеннему приспичило, а я сплю прямо на клавиатуре :)

Тэк-с, функцию gris откорректировала.

Приступаю к поиску центральных 11-ок.

Начинаю с 3401 паттерна с диаметром 444.
Тестировать буду на интервале 30000.

Сейчас запущу программу.

Запуск ракеты-носителя успешно выполнен! :)

? default(timer,1)
? \r procedura11.txt
? \r d444_11ki_all.txt
   log = 1 (on)
   [logfile is "rez_d444_11ki_all.txt"]
  ***   Warning: new stack size = 536870912 (512.000 Mbytes).
range of search
500247030001 (p=4852241114430399690 )
500247060000 (p=4852241405411400000 )

Программа работает, ошибок на старте не выдано.
Таймер включила.
Ждём-с...

11-ки будут гораздо реже появляться, нежели 9-ки.
Но они будут! Они уже появлялись у меня.
11-ки будут продолжаться до хроменьких 13-ок, не все, конечно, будут.
А какая-то продолжится до полной 13-ки.
Всего пока только 13-ки.
Ну, если повезёт, какая-то центральная 11-ка продолжится до полной 15-ки.

И так далее... А нам нужна одна победа - 19-ка!

Ну что ещё у меня интересного?
На Ахиллесе-3 работает программа генерации паттернов и соответствующих формул с диаметром 492.

Был неуспешный запуск этой программы на Ахиллесе, в результате которого Ахиллес завис.
Решила попробовать на Ахиллесе-3, у него помощнее возможности.

И ещё один запуск программы поиска центральных 11-ок успешно выполнен

? \r procedura11.txt
? \r d384_11ki_all.txt
   log = 1 (on)
   [logfile is "rez_d384_11ki.txt"]
range of search
500233000001 (p=4852105027779699690 )
500234000000 (p=4852114727460000000 )

Это для всех 190 теоретических паттернов с диаметром 384.
Интервал задала миллион.

Итак, два диаметра переведены на поиск центральных 11-ок: 384 и 444.
Ждём центральные 11-ки, которые хорошо продолжатся хотя бы до полной 13-ки для начала.

По представленной Demis статистике
https://boinc.progger.info/odlk/forum_thread.php?id=237&postid=11251
имеем

for tuple diameter=480 number of pretuples=98019 after (%5,7,11) good:18700
for tuple diameter=492 number of pretuples=67494 after (%5,7,11) good:12798
for tuple diameter=504 number of pretuples=103675 after (%5,7,11) good:19624
for tuple diameter=516 number of pretuples=121738 after (%5,7,11) good:20625
for tuple diameter=528 number of pretuples=136693 after (%5,7,11) good:24300

С этими диаметрами ещё могу поработать.
Для следующих диаметров резкое увеличивается количество теоретических паттернов.

Для диаметра 480 у меня 2368 паттернов (из 18700) уже обрабатываются.
Для диаметра 492 работает программа генерации паттернов и соответствующих формул.
Если программа успешно отработает, надёргаю из выходного файла паттернов и запущу их в обработку.

Для всех диаметров (кроме минимального) искать теперь буду центральные 11-ки.

Ещё раз покажу диапазоны, в которых идёт поиск центральных 9-ок для паттерна с минимальным диаметром 252.
Сначала указан диапазон цикла по i, а потом соответствующий диапазон реальных чисел.

1) […, 3369899000000000]
[32686971428909208943211, 32686975631310000000000]

2) [3369899000000001, 3369900000000000]
[32686975631310009699690, 32686985331000000000000]

3) [3369900000000001, 3369950000000000]
[32686985331000009699690, 32687470315500000000000]

4) [3369950000000001, 3370000000000000]
[32687470315500009699690, 32687955300000000000000]

5) [3370000000000001, 3370050000000000]
[32687955300000009699690, 32688440284500000000000]

6) [3370050000000001, 3370100000000000]
[32688440284500009699690, 32688925269000000000000]

7) [3370100000000001, 3370150000000000]
[32688925269000009699690, 32689410253500000000000]

Диапазоны 1) - 5) обрабатываются на Ахиллесах.
Диапазон 1) близок к завершению.
Диапазон 6) обрабатывается на черепашке.
Диапазон 7) пока не обрабатывается.
Запущу его, как завершится диапазон 1).

Напоминаю всем: можно подключиться к этому поиску в любое время, и на любой срок, и для любого диапазона.
Пожалуйста, пишите мне
natalimak1@yandex.ru

К поиску центральных 11-ок тоже можно подключиться.
Программ много (в соответствии с диаметрами), можно выбирать любые.
Диапазоны огромные и бесконечные.
Хватит всем на миллионы лет :)
Надеюсь, Demis разглядел, откуда тут миллионы лет.

Ни одной полной 11-ки в этом поиске пока не найдено.
Хроменькие найдены.
Например, в третьем диапазоне

{32686986275115113697137,
32686986275115113697209,
32686986275115113697227,
32686986275115113697233,
32686986275115113697257,
32686986275115113697263,
32686986275115113697269,
32686986275115113697293,
32686986275115113697299,
32686986275115113697317,
32686986275115113697347}

Центральные 9-ки для паттерна с минимальным диаметром 252 сейчас появляются очень редко, несмотря на 5 потоков на Ахиллесах и одному на черепашке.

Вот две недавно найденные, во втором и в третьем диапазонах

(11:55) gp > \rgris9_2.txt
   logfile = "res_gris9_2.txt"
32686981740740362279243, 32686981740740362279261, 32686981740740362279267, 32686981740740362279291,
32686981740740362279297, 32686981740740362279303, 32686981740740362279327, 32686981740740362279333,
32686981740740362279351, 

32686981740740362279171, 
32686981740740362279243, 
32686981740740362279261, 
32686981740740362279267, 
32686981740740362279291, 
32686981740740362279297, 
32686981740740362279303, 
32686981740740362279327, 
32686981740740362279333, 
32686981740740362279351, 
32686981740740362279393, 
32686981740740362279399, 
32686981740740362279411, 

32686981740740362279171, 32686981740740362279177, 32686981740740362279183, 32686981740740362279201,
32686981740740362279213, 32686981740740362279243, 32686981740740362279261, 32686981740740362279267,
32686981740740362279291, 32686981740740362279297, 32686981740740362279303, 32686981740740362279327,
32686981740740362279333, 32686981740740362279351, 32686981740740362279381, 32686981740740362279393,
32686981740740362279411, 32686981740740362279417, 32686981740740362279423,

Здесь хромая 11-ка

{32686981740740362279171,
32686981740740362279243,
32686981740740362279261,
32686981740740362279267,
32686981740740362279291,
32686981740740362279297,
32686981740740362279303,
32686981740740362279327,
32686981740740362279333,
32686981740740362279351,
32686981740740362279393}

(10:12) gp > \rgris9_3.txt
   logfile = "res_gris9_3.txt"

32686987219665101428999, 32686987219665101429017, 32686987219665101429023, 32686987219665101429047,
32686987219665101429053, 32686987219665101429059, 32686987219665101429083, 32686987219665101429089,
32686987219665101429107, 

32686987219665101428927, 
32686987219665101428999, 
32686987219665101429017, 
32686987219665101429023, 
32686987219665101429047, 
32686987219665101429053, 
32686987219665101429059, 
32686987219665101429083, 
32686987219665101429089, 
32686987219665101429107, 
32686987219665101429123, 
32686987219665101429129, 
32686987219665101429143, 

32686987219665101428927, 32686987219665101428933, 32686987219665101428939, 32686987219665101428957,
32686987219665101428969, 32686987219665101428999, 32686987219665101429017, 32686987219665101429023,
32686987219665101429047, 32686987219665101429053, 32686987219665101429059, 32686987219665101429083,
32686987219665101429089, 32686987219665101429107, 32686987219665101429137, 32686987219665101429149,
32686987219665101429167, 32686987219665101429173, 32686987219665101429179,

Здесь вообще без всяких продолжений.

Полная 11-ка пока не появилась ни в одном из шести диапазонов.

gris писал в сообщении
https://dxdy.ru/post1585230.html#p1585230

а вот безделушка с сюрпризом. некто начирикал кусочек
{k=0; n=820; m=899;
forprime(p=n,m,
if(p%30==1,k++;
if(k==1,print( "in range ",n," - ",m," p=30k+1:" );
print1("a=[",p) , print1(", ",p))));
if(k>0,print("];"); print("lena=",k,";"))}
ничего не печатает. значит нечего. а так:
{k=0; n=455; m=899; .... }
in range 455 - 899 p=30k+1:
a=[541, 571, 601, 631, 661, 691, 751, 811];
lena=8;
отлично. но джипити решил исправить синтактическую ошибку и вышло так:
in range 455 - 899 p=30k+1:
a=[541, 541];
lena=8;
это была не ошибка — завопил некто.
а тогда вот это точно ошибка — сказал ии.
in range 455 - 899 p=30k+1:
a=[541in range 455 - 899 p=30k+1:
a=[571in range 455 - 899 p=30k+1:
a=[601in range 455 - 899 p=30k+1:
......
ии, покажи, что ты делал!
ищочиво. сам догадайся.

Насколько понимаю, "джипити" - это умный бот GPT.

Господин Петухов в следующем посте написал

PS. Сам Ваш вопрос так и не понял, извините.

Ха-ха-ха!
А что - был вопрос?
Была "безделушка с сюрпризом".

Ну, мне понятно, откуда у этой безделушки ноги растут :)
Мы с gris пытались изменить его программу формирования формул так, чтобы она не выводила (не печатала) пустой вектор формул a=[ ].
Увы! Пока ничего не получилось.
Или у gris просто безделушка, и он мне мозги пудрит, или у него действительно не получается.
Трудно определить.
Правильный полный текст программы он мне так и не дал.

Программа gris, о которой идёт речь, опубликована в сообщении
https://boinc.progger.info/odlk/forum_thread.php?id=237&postid=11103

Я эту программу сама подкорректировала, чтобы она печатала то, что мне нужно.
Но с двумя моментами я не справилась.
Первый и есть - чтобы не печатался недопустимый паттерн р и соответствующий ему вектор формул а, который пустой.
Второй момент: не смогла сделать, чтобы не выводилась последняя запятая в векторе а.

Это я исправляю уже после работы программы формирования формул, в Ворде.

Есть и ещё один момент.
Тестируя аналогичную программу Demis, я заметила, что у него вектор формул а шлёпается на экран мгновенно.
В программе gris этот вектор выводится на экран (значит, и в выходной файл) покоординатно.
Даже визуально видно, насколько это тормозной вывод.
Если изменить этот вывод, время работы программы уменьшится в разы.
Предложила gris это сделать.
Похоже, ему не хочется :)

Завершилась программа поиска центральных 9-ок для всех 4435 теоретических паттернов с диаметром 456.
Решений не найдено.

Запустила эту программу на поиск центральных 11-ок.

Друзья!
Сервер у нас немножко отдыхал :)
Ну, кажется, поехали.

Черепашка нашла 9-ку в 6-ом диапазоне

? \r gris9_6.txt
   logfile = "resgris9_6.txt"
range of search
3370050131000001 (p=32688441555159399699690 )
3370050133000000 (p=32688441574558770000000 )

32688441558452194384763, 32688441558452194384781, 32688441558452194384787, 32688
441558452194384811, 32688441558452194384817, 32688441558452194384823, 3268844155
8452194384847, 32688441558452194384853, 32688441558452194384871,

32688441558452194384691,
32688441558452194384759,
32688441558452194384763,
32688441558452194384781,
32688441558452194384787,
32688441558452194384811,
32688441558452194384817,
32688441558452194384823,
32688441558452194384847,
32688441558452194384853,
32688441558452194384871,

32688441558452194384691, 32688441558452194384697, 32688441558452194384703, 32688
441558452194384721, 32688441558452194384733, 32688441558452194384763, 3268844155
8452194384781, 32688441558452194384787, 32688441558452194384811, 326884415584521
94384817, 32688441558452194384823, 32688441558452194384847, 32688441558452194384
853, 32688441558452194384871, 32688441558452194384901, 32688441558452194384913,
32688441558452194384931, 32688441558452194384937, 32688441558452194384943,
time = 2h, 25min, 56,726 ms.

Не продолжается никуда.
Но черепашка всё равно очень старается :)

На Ахиллесе-3 завершился прогон пятого диапазона (паттерн с минимальным диаметром).
Нашлось несколько центральных 9-ок, но ни одна из них до полной 11-ки не продолжается.

Есть только одна хроменькая 11-ка, получается из этой центральной 9-ки

32687955720065648147753, 32687955720065648147771, 32687955720065648147777, 32687955720065648147801,
32687955720065648147807, 32687955720065648147813, 32687955720065648147837, 32687955720065648147843,
32687955720065648147861, 

32687955720065648147681, 
32687955720065648147753, 
32687955720065648147771, 
32687955720065648147777, 
32687955720065648147801, 
32687955720065648147807, 
32687955720065648147813, 
32687955720065648147837, 
32687955720065648147843, 
32687955720065648147861, 
32687955720065648147867, 
32687955720065648147903, 

32687955720065648147681, 32687955720065648147687, 32687955720065648147693, 32687955720065648147711,
32687955720065648147723, 32687955720065648147753, 32687955720065648147771, 32687955720065648147777,
32687955720065648147801, 32687955720065648147807, 32687955720065648147813, 32687955720065648147837,
32687955720065648147843, 32687955720065648147861, 32687955720065648147891, 32687955720065648147903,
32687955720065648147921, 32687955720065648147927, 32687955720065648147933,

Завершился прогон программы для всех 116 теоретических паттернов с диаметром 336.
Центральных 9-ок найдено много, но ни одна не продолжается до полной 11-ки.
Хромые есть, не буду их показывать.

Запустила эту программу на поиск центральных 11-ок, в следующем интервале.
Уже четыре диаметра перевела на поиск центральных 11-ок: 336, 384, 444, 456.
Ждём полные 11-ки, которые могут до 13-ок продолжиться, хотя бы до хромых.