|
%I #10 Dec 05 2013 20:09:08
%S 10010101,10100011,1000011011,1000110101,1001000111,1001001011,
%T 1001010011,1010000111,1010001101,1010010011,1010100011,1010110001,
%U 1011000101,1100001101,1101001001,10000101011101,10000111100011
%N Primes consisting only of digits 0 and 1 occurring with equal frequency.
%H T. D. Noe, <a href="/A087510/b087510.txt">Table of n, a(n) for n=1..1000</a>
%p Primes consisting only of digits x and y, occurring with equal frequency. d1=x; d2=y; k=0; a=vector(100); for(n=1,3000,B=binary(n); L=length(B); s=sum(j=1,length(B),B[j]); if(L%2==0 & s==L/2,C=vector(L,n,(d2-d1)*B[n]+d1); p=subst(Pol(C),x,10); if(isprime(p),if(k<100,k++; a[k]=p)); D=vector(L,n,d2-(d2-d1)*B[n]); q=subst(Pol(D),x,10); if(isprime(q ),if(k<100,k++; a[k]=q))); ); a=vector(k,n,a[n]); vecsort(a)
%t Select[FromDigits/@Tuples[{0,1},14],PrimeQ[#] && Length[x=IntegerDigits[#]]==2*Count[x,0] &] (* _Jayanta Basu_, May 23 2013 *)
%Y Cf. A087511, A087512, A087513.
%K base,nonn
%O 1,1
%A _Paul D. Hanna_ and _Amarnath Murthy_, Sep 11 2003
|
