|
%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
|
