|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
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
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|