OFFSET
1,1
COMMENTS
MATHEMATICA
okQ[n_] := Module[{pfs = Transpose[FactorInteger[n]][[1]]}, Length[pfs] == 3 && And @@ PrimeQ[FromDigits /@ (Flatten /@ (IntegerDigits /@ Permutations[pfs]))]]; Select[Range[2100000], okQ]
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Harvey P. Dale, Jan 29 2011
STATUS
approved