OFFSET
0,1
LINKS
Alois P. Heinz, Table of n, a(n) for n = 0..2000
MATHEMATICA
emrpQ[n_]:=Module[{idn=IntegerDigits[n], ridn}, ridn=Reverse[idn]; idn!=ridn && PrimeQ[ FromDigits[ ridn]]]; nss[n_]:= Module[{idn=IntegerDigits[n]}, Select[e, MemberQ[Partition[ IntegerDigits[#], Length[idn], 1], idn]&, 1]]; With[{e=Select[Prime[Range[50000]], emrpQ]}, Flatten[ Join[{107}, Table[ nss[i], {i, 50}]]]] (* Harvey P. Dale, Oct 08 2012 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Lekraj Beedassy, May 29 2010
EXTENSIONS
Corrected and extended by Harvey P. Dale, Oct 08 2012
STATUS
approved