OFFSET
1,2
COMMENTS
64*10^k is a term of the sequence for every positive integer k.
EXAMPLE
375 = 3*5^3. 3+7+5 = 3*5. Thus 375 is a term.
MATHEMATICA
Select[Range[10^6], Plus @@ Union[IntegerDigits[#]] == Times @@ FactorInteger[#][[;; , 1]] &] (* Amiram Eldar, Sep 21 2022 *)
PROG
(PARI) isok(k) = vecsum(Set(digits(k))) == vecprod(factor(k)[, 1]);
(Python)
from math import prod
from sympy import primefactors
def ok(n): return n and sum(map(int, set(str(n)))) == prod(primefactors(n))
print([k for k in range(10**5) if ok(k)]) # Michael S. Branicky, Sep 22 2022
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Alexandru Petrescu, Sep 21 2022
EXTENSIONS
More terms from Michel Marcus, Sep 21 2022
STATUS
approved