Интересные задачи участников форума MHP • Re: Есть ли периодичность ---

\l 17_53_new_res.txt;
{pt=[0, 6, 24, 36, 66, 84, 90, 114, 120, 126, 150, 156, 174, 204, 216, 234, 240];

vmy=vector(30); pat1=vector(17); pat2=vector(17);

period=32589158477190044730; dob=9425346484752129657862223;

np1=1827000001;
np2=1837000000;

for(i=np1,np2,
bpt=i*period+dob;

if(ispseudoprime(bpt) && ispseudoprime(bpt+240),
l=0;
forprime(p=bpt,bpt+240, l++; vmy[l]=p; );
if(l==17,
for(m=2,17, pat1[m]=vmy[m]-vmy[1]; );
pat2=vector(17,i,(pat1[i]==pt[i]));
vlds=vecsum(pat2);
if(vlds>1, print(vmy[1],": ",pat1); print("valids=",vlds); print();
);\\if vlds>
); \\ if l==17
);\\ if ispseudoprime
);
}