OFFSET
1,1
EXAMPLE
MATHEMATICA
q[n_] := AllTrue[Permutations[IntegerDigits[n]], PrimeOmega[FromDigits[#]] == 2 &]; Select[Range[10^4], q] (* Amiram Eldar, May 20 2021 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Ctibor O. Zizka, May 20 2021
STATUS
approved