OFFSET
1,1
MATHEMATICA
Select[Prime@Range@(10^4), (r = IntegerReverse@#) != # && PrimeQ@r && Intersection[IntegerDigits@#, {2, 3, 5, 7}] == {} &] (* Ray Chandler, Mar 06 2007 corrected by Hans Rudolf Widmer, May 18 2024 *)
CROSSREFS
KEYWORD
nonn,less,base
AUTHOR
Lekraj Beedassy, Feb 28 2007
EXTENSIONS
Corrected by Ray Chandler, Mar 06 2007
STATUS
approved