login
Larger of emirps (pairs) with digits 0 and 1 only.
3

%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