OFFSET
1,1
COMMENTS
Subsequence of A128390.
LINKS
Daniel Starodubtsev, Table of n, a(n) for n = 1..10000
MATHEMATICA
emrpQ[n_]:=Module[{r=IntegerReverse[n]}, r!=n&&AllTrue[{r, n}, PrimeQ]]; Table[Select[FromDigits/@Tuples[{1, 9}, n], emrpQ], {n, 8}]//Flatten (* Harvey P. Dale, Aug 09 2017 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Lekraj Beedassy, Jan 23 2009
EXTENSIONS
More terms from Sean A. Irvine, Apr 05 2010
STATUS
approved