

A129338


Absolute primes, alternative definition: every permutation of digits is a prime and there are at least two different digits.


4



13, 17, 31, 37, 71, 73, 79, 97, 113, 131, 199, 311, 337, 373, 733, 919, 991
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,1


COMMENTS

No further terms through the 50000th prime, i.e., through 611953.  Harvey P. Dale, May 19 2012.


LINKS



MATHEMATICA

Select[Prime[Range[5, 170]], And@@PrimeQ[FromDigits/@Permutations[ IntegerDigits[#]]]&] (* Harvey P. Dale, Oct 03 2011 *)


CROSSREFS

See the main entry A003459 for the usual definition.


KEYWORD

nonn,base


AUTHOR



STATUS

approved



