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

Author

Tanya Khovanova, Dec 24 2006

Keywords

• nonn
• base
• fini
• full

Links

• Caldwell and Honaker, 2357, Prime Curios!

Crossrefs

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

Programs

Mathematica

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

PARI

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