A087510 Primes consisting only of digits 0 and 1 occurring with equal frequency.

10010101, 10100011, 1000011011, 1000110101, 1001000111, 1001001011, 1001010011, 1010000111, 1010001101, 1010010011, 1010100011, 1010110001, 1011000101, 1100001101, 1101001001, 10000101011101, 10000111100011

Offset

1,1

Links

T. D. Noe, Table of n, a(n) for n=1..1000

Maple

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)

Mathematica

Select[FromDigits/@Tuples[{0, 1}, 14], PrimeQ[#] && Length[x=IntegerDigits[#]]==2*Count[x, 0] &] (* Jayanta Basu, May 23 2013 *)

Crossrefs

Cf. A087511, A087512, A087513.

Sequence in context: A182749 A260915 A072144 * A173002 A139120 A210893

Adjacent sequences: A087507 A087508 A087509 * A087511 A087512 A087513

Keyword

base,nonn

Author

Paul D. Hanna and Amarnath Murthy, Sep 11 2003

Status

approved