仅由数字x和y组成的素数,出现频率相等。d1=x;d2=y;k=0;a=矢量(100);对于(n=13000,B=二进制(n);L=长度(B);s=和(j=1,长度(B),B[j]);如果(L%2==0&s==L/2,C=向量(L,n,(d2-d1)*B[n]+d1);p=次方(Pol(C),x,10);如果(isprime(p),如果(k<100,k++;a[k]=p));D=矢量(L,n,d2-(d2-d1)*B[n]);q=次方(Pol(D),x,10);if(isprime(q),if(k<100,k++;a[k]=q)););a=向量(k,n,a[n]);向量排序(a)
|