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
KEYWORD
nonn,base
AUTHOR
M. F. Hasler, Mar 26 2008
STATUS
approved