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

Comments

There are exactly eight primes whose digits are primes in strictly increasing order: 2, 3, 5, 7, 23, 37, 257, 2357. - James C. McMahon, Jul 04 2023

There are exactly six primes whose digits are primes in strictly decreasing order: 2, 3, 5, 7, 53, 73. - James C. McMahon, Aug 09 2023

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