A155512 Emirps with digits 0 and 1 only.

10011101, 10111001, 100100111, 111001001, 1000110101, 1001001011, 1010001101, 1010011111, 1010110001, 1011000101, 1101001001, 1111100101, 10010100101, 10100000011, 10100000111, 10100101001, 10111001011, 11000000101

Offset: 1

Author

Lekraj Beedassy, Jan 23 2009

Keywords

• nonn
• base

Comments

Subsequence of A128390 and of A020449.

Links

• Harvey P. Dale, Table of n, a(n) for n = 1..3000

Crossrefs

A006567, A155513, A155514

Programs

Mathematica

emQ[ls_List]:=Module[{rev=Reverse[ls]},Length[ls]==Length[rev]&& ls!=rev && PrimeQ[FromDigits[ls]]&&PrimeQ[FromDigits[rev]]]; Union[Flatten[ Table[FromDigits/@Select[Tuples[{1,0},n],emQ],{n,11}]]] (* Harvey P. Dale, Nov 30 2011 *)

Extensions

First two missed entries included. Lekraj Beedassy, May 30 2009

More terms from Sean A. Irvine, Mar 04 2010