OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..660
MATHEMATICA
Flatten[Table[Select[Subsets[Select[FromDigits/@Tuples[{1, 9}, n], PrimeQ], {2}], AllTrue[#, PrimeQ]&&#[[1]]==IntegerReverse[#[[2]]]&][[All, 1]], {n, 3, 10}]/.{}->Nothing] (* Harvey P. Dale, Aug 21 2020 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Lekraj Beedassy, Jan 23 2009
EXTENSIONS
More terms from Sean A. Irvine, Apr 06 2010
STATUS
approved