(PARI)
PT(x)={print1(x,“,”);写入(“b291163.txt”,n++,“”,x)};
n=0;
ae=矢量(11);
ao=矢量(11);
声发射[1]=2;PT(声发射[1]);
ao[1]=3;PT(ao[1]);
对于(m=1,10\
开始=(ao[m]+1)/2\
对于(kh=start,100*start,k=kh+kh\
对于(jj=1,m,j=m-jj+1;如果(!isprime(k+ao[j]),next(2)))\
声发射[m+1]=k;PT(k);断裂(1))\
开始=ae[m+1]/2\
对于(kh=start,100*start,k=kh+kh+1\
对于(jj=1,m+1,j=m-jj+2;如果(!i素数(k+ae[j]),则下一个(2))\
ao[m+1]=k;PT(k);中断(1))