login
A128388
Emirps with only prime digits (i.e., 2, 3, 5, 7).
9
37, 73, 337, 733, 3257, 3373, 3527, 3733, 7253, 7523, 7577, 7757, 32233, 32257, 32353, 32377, 32537, 33223, 35227, 35257, 35323, 35327, 35537, 72253, 72337, 72353, 72577, 73277, 73327, 73523, 73553, 75223, 75253, 75577, 77237, 77323
OFFSET
1,1
COMMENTS
7523 is the largest norep emirp with only prime digits. - Harvey P. Dale, Sep 17 2019
LINKS
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