OFFSET
1,1
LINKS
Giovanni Resta, Table of n, a(n) for n = 1..10000
Eric Weisstein's World of Mathematics, Digit Sum
Eric Weisstein's World of Mathematics, Prime Factor
Eric Weisstein's World of Mathematics, Distinct Prime Factors
EXAMPLE
20112 is in the sequence because 20112 = 2^4*3*419 (6 prime factors, 3 distinct), 2 + 0 + 1 + 1 + 2 = 6 and 2 + 0 + 1 = 3.
MATHEMATICA
Select[Range[1100000], Total[IntegerDigits[#1]] == PrimeOmega[#1] && Total[Union[IntegerDigits[#1]]] == PrimeNu[#1] &]
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
Ilya Gutkovskiy, Jan 10 2017
STATUS
approved