%I A087527
%S A087527 23,23223323,32323223,2222323333,2223223333,2232223333,2232322333,
%T A087527 2232332233,2323222333,2332322233,2333222323,2333223223,3223232323,
%U A087527 3232222333,3232232233,3232233223,3232322323,3323232223,23322322233323
%N A087527 Primes consisting only of digits 2 and 3 occurring with equal frequency.
%C A087527 There are 18 digit pairs which can produce such primes. (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).
%p A087527 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)
%Y A087527 Cf. A087510, A087511, A087514.
%Y A087527 Sequence in context: A050234 A124993 A013818 this_sequence A013906 A030464 
               A053558
%Y A087527 Adjacent sequences: A087524 A087525 A087526 this_sequence A087528 A087529 
               A087530
%K A087527 base,nonn
%O A087527 0,1
%A A087527 Paul D. Hanna (pauldhanna(AT)juno.com) and Amarnath Murthy (amarnath_murthy(AT)yahoo.com), 
               Sep 12 2003