OFFSET
1,1
MATHEMATICA
Select[Flatten@ Table[FromDigits /@ Tuples[Prime[Range[4]], n], {n, 3, 4}], FactorInteger[#][[;; , 2]] == {1, 1, 1} &] (* Amiram Eldar, Mar 18 2023 *)
PROG
(PARI) isok(k) = (omega(k)==3) && (bigomega(k)==3) && !#select(x->!isprime(x), digits(k)); \\ Michel Marcus, Mar 21 2023
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Massimo Kofler, Mar 18 2023
STATUS
approved