login
A357132
Numbers k such that the product of distinct digits of k equals the product of the prime divisors of k.
2
1, 2, 3, 5, 6, 7, 135, 175, 735, 1176, 1715, 13122, 131712, 2333772
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