A141521 Primes with a prime number of digits, all of which are distinct primes.
23, 37, 53, 73, 257, 523
Offset: 1
Programs
-
Mathematica
Sort[Select[FromDigits/@Flatten[Permutations/@Subsets[{2,3,5,7},{2,3}],1],PrimeQ]] (* Harvey P. Dale, Jul 08 2014 *)