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,2

Links

Table of n, a(n) for n=1..14.

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

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

Sequence in context: A357263 A067077 A370688 * A067183 A269670 A333480

Adjacent sequences: A357129 A357130 A357131 * A357133 A357134 A357135

Keyword

nonn,base,fini,full

Author

Alexandru Petrescu, Sep 14 2022

Status

approved