A357132 Numbers k such that the product of distinct digits of k equals the product of the prime divisors of k.

1, 2, 3, 5, 6, 7, 135, 175, 735, 1176, 1715, 13122, 131712, 2333772

Offset: 1

Author

Alexandru Petrescu, Sep 14 2022

Keywords

• nonn
• base
• fini
• full

Examples

			175 = 5^2*7, 1*7*5 = 5*7. Thus 175 is a term.
		

Crossrefs

Cf. A002473, A052382, A067183, A075048, A238985, A356981.

Programs

Mathematica

Select[Range[2400000], Times@@DeleteDuplicates[IntegerDigits[#]] == Times@@First/@FactorInteger[#] &] (* Stefano Spezia, Apr 25 2024 *)

PARI

isok(k) = vecprod(Set(digits(k))) == vecprod(factor(k)[, 1]);