%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日
|