OFFSET
1,1
COMMENTS
7523 is the largest norep emirp with only prime digits. - Harvey P. Dale, Sep 17 2019
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..2000
MATHEMATICA
Select[Prime@Range[10^4], # != r[ # ] && PrimeQ[r[ # ]] && Intersection[IntegerDigits[ # ], {0, 1, 4, 6, 8, 9}] == {} &] (* Ray Chandler, Mar 06 2007 *)
Table[Select[FromDigits/@Tuples[{2, 3, 5, 7}, n], !PalindromeQ[#]&& AllTrue[ {#, IntegerReverse[ #]}, PrimeQ]&], {n, 2, 5}]//Flatten (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Sep 17 2019 *)
CROSSREFS
KEYWORD
base,less,nonn
AUTHOR
Lekraj Beedassy, Feb 28 2007
EXTENSIONS
Corrected by Ray Chandler, Mar 06 2007
STATUS
approved