OFFSET
1,1
MATHEMATICA
t2 = Select[Prime[Range[100000]], Intersection[{0, 2, 4, 6, 8}, Union[IntegerDigits[#]]] == {} &]; t = {}; Do[If[Length[Select[Table[FromDigits[k], {k, Permutations[IntegerDigits[p]]}], PrimeQ]] == 1, AppendTo[t, p]], {p, t2}]; t
edpQ[n_]:=Module[{idn=IntegerDigits[n]}, AllTrue[idn, OddQ]&&Count[ FromDigits/@ Permutations[idn], _?PrimeQ]==1]; Select[Prime[ Range[ 332*10^4]], edpQ] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Nov 25 2018 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
T. D. Noe, May 07 2013
STATUS
approved