%I#7 2013年12月5日20:16:11

%S 37,73333737737373737733737733773333737773337773373737，

%电话：7377337377337937733333373773337777337337773377773，

%电话：37333737737337337773773377337737333337773773337737733773373777337773

%N只由数字3和数字7组成的素数，出现频率相同。

%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).

%t选择[Flatten[Table[FromDigits/@Permutations[Join[Table[3]，{i}]，Table[7，{i{]]，{i，7}]]，PrimeQ]（来自Harvey Dale）

%o（PARI）/*仅由数字x和y组成的素数，出现频率相同。*/x=3；y=7；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）；如果（isprime（p），如果（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）

%Y参见A087510、A087511、A087530。

%K基，nonn

%0、1

%A _Amarnath Murthy和Paul D.Hanna，2003年9月12日

%E由_Charles R Greathouse IV_编辑，2009年10月28日