A129338 Absolute primes, alternative definition: every permutation of digits is a prime and there are at least two different digits.
13, 17, 31, 37, 71, 73, 79, 97, 113, 131, 199, 311, 337, 373, 733, 919, 991
Offset: 1
Links
- C. Caldwell, The prime glossary: Permutable Prime
Crossrefs
See the main entry A003459 for the usual definition.
Programs
-
Mathematica
Select[Prime[Range[5,170]],And@@PrimeQ[FromDigits/@Permutations[ IntegerDigits[#]]]&] (* Harvey P. Dale, Oct 03 2011 *)
Comments