OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..3000
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 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Lekraj Beedassy, Jan 23 2009
EXTENSIONS
First two missed entries included. Lekraj Beedassy, May 30 2009
More terms from Sean A. Irvine, Mar 04 2010
STATUS
approved