OFFSET
1,1
COMMENTS
The first digit is always larger than the last digit.
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..500
MATHEMATICA
epQ[n_]:=Module[{idn=IntegerDigits[n], mid}, mid=Rest[Most[idn]]; PrimeQ[ IntegerReverse[n]]&&mid==Reverse[mid]&&idn[[1]]>idn[[-1]]]; Select[ Prime[Range[6, 8000]], epQ] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Oct 10 2016 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Lekraj Beedassy, Oct 13 2015
EXTENSIONS
Corrected by Harvey P. Dale, Oct 10 2016
STATUS
approved