A117639 Complete primes: prime numbers such that every permutation of its digits is prime and all the digits are primes.

2, 3, 5, 7, 37, 73, 337, 373, 733

Offset: 1

Author

Luc Stevens (lms022(AT)yahoo.com), Apr 09 2006

Keywords

• fini
• nonn
• base

Examples

			337 is a complete prime because 337 is prime and its permutations (373,733) are prime and the digits (3 and 7) are also prime.
		

Crossrefs

Cf. A003459.

Programs

Mathematica

Select[Prime[Range[10^4]],ContainsOnly[IntegerDigits[#],{2,3,5,7}]&&AllTrue[FromDigits/@Permutations[IntegerDigits[#]],PrimeQ]&] (* James C. McMahon, Sep 25 2024 *)