OFFSET
1,1
COMMENTS
Similar to A070275, where distinctness of digits is not required.
EXAMPLE
144 = 2^4*3^2 and 1+4=2+3. Thus, 144 is in this sequence.
MATHEMATICA
Select[Range[2, 20000], Total[Union[IntegerDigits[#]]] == Total[Transpose[FactorInteger[#]][[1]]] &]
PROG
(Python)
from itertools import count, islice
from sympy import primefactors
def A356981_gen(startvalue=1): # generator of terms >= startvalue
return filter(lambda k:sum(int(d) for d in set(str(k)))==sum(primefactors(k)), count(max(startvalue, 1)))
(PARI) isok(k) = vecsum(Set(digits(k))) == vecsum(factor(k)[, 1]); \\ Michel Marcus, Sep 12 2022
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Tanya Khovanova, Sep 09 2022
STATUS
approved