检验过的
已批准
提出
编辑
(PARI)d1=1;d2=3;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);if(i素数(p),if(k<100,k++;a[k]=p));D=矢量(L,n,d2-(d2-d1)*B[n]);q=subst(Pol(D),x,10);如果(i素数(q),如果(k<100,k++;a[k]=q)););a=向量(k,n,a[n]);向量排序(a)
米歇尔·马库斯:是pari
有1819能产生这种素数的数字对。(1, 0), (7, 0), (1, 3), (1, 4), (1, 6), (1, 7), (1, 9), (2, 3), (2, 9), (3, 4), (3, 5), (3, 7), (3, 8), (4, 7), (4, 9), (5, 9), (6, 7), (7,9)(8, 9).). -已更正 通过_罗伯特 以色列_,七月 10 2018
大卫·A·科内斯:第一条评论是什么意思?序列是有限的吗?
罗伯特·伊斯雷尔:不,它声称,对于这18对中的一对(i,j),你可以有由数字i和j组成的素数,频率相等。但是少了一对:(8,9)。
仅由数字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);if(i素数(p),if(k<100,k++;a[k]=p));D=矢量(L,n,d2-(d2-d1)*B[n]);q=subst(Pol(D),x,10);如果(i素数(q),如果(k<100,k++;a[k]=q)););a=向量(k,n,a[n]);向量排序(a)
排序(select(isprime,[seq(seq((10^(2*d)-1)/9+2*add(10^i,i=s),s=组合:-choose([$0..(2*d-1)],d)),d=[1,2,4,5,7,8,10]))#罗伯特·伊斯雷尔2018年7月9日
数字是偶数,不能被3整除-罗伯特·伊斯雷尔2018年7月9日
Robert Israel,<a href=“/A087511号/b087511.txt“>n表,n=1..10000时为a(n)</a>
罗伯特·伊斯雷尔:“枫叶”代码不是枫叶。也许是巴黎吧?
保罗·D·汉纳和 _阿玛纳斯·穆尔西(阿玛纳斯_阴暗的(自动变速箱)雅虎.通用域名格式),_,2003年9月11日
OEIS服务器: https://oeis.org/edit/global/2075