%I #10 Oct 01 2012 17:52:20
%S 10111001,111001001,1010110001,1011000101,1101001001,1111100101,
%T 10100101001,11000000101,11010011101,11100000101,100111101001,
%U 101010000001,101010111001,110000000101,110011010101,110101011001
%N Larger of emirps (pairs) with digits 0 and 1 only.
%H Harvey P. Dale, <a href="/A155514/b155514.txt">Table of n, a(n) for n = 1..1000</a>
%t emrpQ[n_]:=Module[{idn=IntegerDigits[n],ridn},ridn=Reverse[idn]; idn!=ridn &&PrimeQ[n]&&PrimeQ[FromDigits[ridn]]]; lrgr[n_]:=If[n<FromDigits[ Reverse[ IntegerDigits[n]]],0,n]; Select[lrgr/@Union[ Select[ Union[ Flatten[ Table[FromDigits/@Tuples[{1,0},n],{n,12}]]],emrpQ]],#!=0&] (* _Harvey P. Dale_, Oct 01 2012 *)
%Y A006567, A155512, A155513
%K nonn,base
%O 1,1
%A _Lekraj Beedassy_, Jan 23 2009
%E First missed entry added. _Lekraj Beedassy_, May 30 2009
%E More terms from _Sean A. Irvine_, Mar 04 2010