A128388 Emirps with only prime digits (i.e., 2, 3, 5, 7).

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

Author

Lekraj Beedassy, Feb 28 2007

Keywords

• base
• less
• nonn

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

Crossrefs

Cf. A006567, A128389, A128390.

Programs

Mathematica

Select[Prime@Range[10^4], # != IntegerReverse[ # ] && PrimeQ[IntegerReverse[ # ]] && Intersection[IntegerDigits[ # ], {0, 1, 4, 6, 8, 9}] == {} &] (* Ray Chandler, Mar 06 2007; corrected by James C. McMahon, Jun 03 2025 *)
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 *)

Extensions

Corrected by Ray Chandler, Mar 06 2007