%I#8 2017年8月8日11:57:47

%S 43344343443343434434333334343344443334344333444443，

%电话：33443443433344434433343444333444433444443334433443，

%U 34443343434334433443444334343444333443444333443443443443334434344433343

%仅由数字4和数字3组成的N个素数以相同的频率出现。

%C有18个数字对可以产生这样的素数。(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).

%H Harvey P.Dale，n表，n=1..5000的a（n）</a>

%p仅由数字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=subst（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）

%t选择[FromDigits/@Flatten[Permutations/@Table[PadRight[{}，2n，{4,3}]，{n，5}]，1]，PrimeQ]//Sort（*Harvey P.Dale_，2017年8月8日*）

%Y参见A087510、A087511、A087528。

%K基，nonn

%O 1,1号机组

%A·保罗·D·汉纳和阿玛娜斯·穆尔西，2003年9月12日