Продолжил.
(PARI)
kvar=0;
pro=[0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1, 1,1,1, 1,1,1,1,1];
v2 =[0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,1,4,1,2,1,32,1,2, 1,4,1,2,1];
v3 =[0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,3,1,1,3,1, 1,9,1,1,3,1,1,3,1,1,9,1,1,3,1,1];
{for(i3=1,9,
v5 =[0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,5,1,1,1,1,5,1, 1,1,1,5,1,1,1,1,25,1,1,1,1,5,1,1,1,1,5,1,1,1,1];
for(i5=1,16,
v7 =[0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,7,1,1,1, 1,1,1, 16807,1,1,1,1,1,1,7,1,1,1,1,1,1,7,1,1,1,1,1,1,7];
for(i7=1,11,
v11=[0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1, 1,1,1,161051,1,1,1,1,1,1,1,1,1,1,11,1,1,1,1,1,1,1,1,1,1,11,1,1,1];
for(i11=1,11,
\\v7 =[0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,7,1,1,1,1,1,1,7,1,1,1,1, 1,1,49,1,1,1,1,1,1,7,1,1,1,1,1,1,7];
\\for(i7=1,18,
\\v11=[0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,11,1,1,1,1,1,1,1,1,1,1,121,1,1,1,1,1,1,1,1,1,1,11,1,1,1];
\\for(i11=1,22,
zap=0;l=29;r=l+10;
for(i=l,r,pro[i]=v2[i]*v3[i]*v5[i]*v7[i]*v11[i];
if(numdiv(pro[i]) >6 || numdiv(pro[i]) == 4,zap=zap+1));
if(zap == 0,
kvar=kvar+1;print();print1(kvar);
print1( " ");for(i=l,r,print1(i, " ",));print();print();
print1(" ");for(i=l,31,print1(" ",v2[i]));
print1(" ");for(i=32,r,print1(v2[i]," ",));print();print();
print1(" ");for(i=l,r,print1(" ",v3[i]));print();print();
print1(" ");for(i=l,r,print1(" ",v5[i]));print();print();
print1(" ");for(i=l,r,print1(" ",v7[i]));print();print();
print1(" ");for(i=l,r,print1(" ",v11[i]));print();print();
print1(" ");for(i=l,r,print1(" ",pro[i]));print();print();
para1=lcm(pro[l],pro[l+1]);
para2=lcm(pro[l+2],pro[l+3]);
para3=lcm(pro[l+4],pro[l+5]);
para4=lcm(pro[l+6],pro[l+7]);
para5=lcm(pro[l+8],pro[l+9]);
qvad1=lcm(para1,para2);
qvad2=lcm(para3,para4);
qvad3=lcm(para5,pro[l+10]);
oct=lcm(qvad1,qvad2);
shag=lcm(oct,qvad3);
print(" ",shag," ",zap);
);
for(i=l,l+34,v11[i]=v11[i+1]));
for(i=l,l+30,v7[i]=v7[i+1]));
for(i=l,l+28,v5[i]=v5[i+1]));
for(i=l,l+21,v3[i]=v3[i+1]));
print();
}
quit
Конкретно эта прога даёт 16 крайне правых паттернов с числами
и
. В обозначениях Дмитрия это паттерны с "-4" в самом конце.
А по всем таким прогам нашлись пока 430 вариантов с 5-й степенью:
Код:
Старт 16807 161051 16807 & 161051
1331114400 8116970400
14642258400 56818792800 19488845930400
25 59 43 16 118
26 27 17 6 50
27 46 34 14 94
28 27 17 6 50
29 59 43 16 118
58 430
Пока совпадает, ура. И 58 паттернов с наибольшим шагом тоже нашлись. Впереди самое интересное.