A128388 - OEIS

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

(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

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

Cf. A006567, A128389, A128390.

Sequence in context: A179579 A069204 A153208 * A137833 A083748 A146273

Adjacent sequences: A128385 A128386 A128387 * A128389 A128390 A128391

KEYWORD

base,less,nonn

AUTHOR

Lekraj Beedassy, Feb 28 2007

EXTENSIONS

Corrected by Ray Chandler, Mar 06 2007

STATUS

approved