OFFSET
1,1
EXAMPLE
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.
MATHEMATICA
Select[Prime[Range[10^4]], ContainsOnly[IntegerDigits[#], {2, 3, 5, 7}]&&AllTrue[FromDigits/@Permutations[IntegerDigits[#]], PrimeQ]&] (* James C. McMahon, Sep 25 2024 *)
CROSSREFS
KEYWORD
fini,nonn,base
AUTHOR
Luc Stevens (lms022(AT)yahoo.com), Apr 09 2006
STATUS
approved