login
Primes with distinct prime digits.
5

%I #14 Mar 27 2020 06:41:12

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

%N Primes with distinct prime digits.

%H Caldwell and Honaker, <a href="https://primes.utm.edu/curios/page.php?curio_id=32194">2357</a>, Prime Curios!

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

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

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

%K nonn,base,fini,full

%O 1,1

%A _Tanya Khovanova_, Dec 24 2006