A155514 Larger of emirps (pairs) with digits 0 and 1 only.
10111001, 111001001, 1010110001, 1011000101, 1101001001, 1111100101, 10100101001, 11000000101, 11010011101, 11100000101, 100111101001, 101010000001, 101010111001, 110000000101, 110011010101, 110101011001
Offset: 1
Links
- Harvey P. Dale, Table of n, a(n) for n = 1..1000
Programs
-
Mathematica
emrpQ[n_]:=Module[{idn=IntegerDigits[n],ridn},ridn=Reverse[idn]; idn!=ridn &&PrimeQ[n]&&PrimeQ[FromDigits[ridn]]]; lrgr[n_]:=If[n
Harvey P. Dale, Oct 01 2012 *)
Extensions
First missed entry added. Lekraj Beedassy, May 30 2009
More terms from Sean A. Irvine, Mar 04 2010