A124674 Primes with distinct prime digits.

2, 3, 5, 7, 23, 37, 53, 73, 257, 523, 2357, 2753, 3257, 3527, 5237, 5273, 7253, 7523

Offset

1,1

Links

Table of n, a(n) for n=1..18.

Caldwell and Honaker, 2357, Prime Curios!

Mathematica

Select[Range[10000], PrimeQ[ # ] && Length[IntegerDigits[ # ]] == Length[Union[IntegerDigits[ # ]]] && Complement[IntegerDigits[ # ], {2, 3, 5, 7}] == {} &]

Prog

(PARI) is(k) = isprime(k) && setintersect([2, 3, 5, 7], v=vecsort(digits(k))) == v; \\ Jinyuan Wang, Mar 27 2020

Crossrefs

Cf. A019546 (primes whose digits are primes), A124673.

Sequence in context: A104179 A096148 A211681 * A177061 A020994 A085823

Adjacent sequences: A124671 A124672 A124673 * A124675 A124676 A124677

Keyword

nonn,base,fini,full

Author

Tanya Khovanova, Dec 24 2006

Status

approved