OFFSET
1,2
EXAMPLE
175 = 5^2*7, 1*7*5 = 5*7. Thus 175 is a term.
MATHEMATICA
Select[Range[2400000], Times@@DeleteDuplicates[IntegerDigits[#]] == Times@@First/@FactorInteger[#] &] (* Stefano Spezia, Apr 25 2024 *)
PROG
(PARI) isok(k) = vecprod(Set(digits(k))) == vecprod(factor(k)[, 1]);
CROSSREFS
KEYWORD
nonn,base,fini,full
AUTHOR
Alexandru Petrescu, Sep 14 2022
STATUS
approved