OFFSET
1,1
LINKS
Giovanni Resta, Table of n, a(n) for n = 1..10000
MATHEMATICA
Select[Range[2, 10000], Total[IntegerDigits[#]]==Length[FactorInteger[#]]&] (* or *)
nd = 10; s = 1; Sort@ Flatten@ Reap[ While[ Times @@ Prime[ Range@ s] < 10^nd, pa = IntegerPartitions[s, {nd}, Range[0, 9]]; Do[Sow@ Select[ FromDigits /@ Permutations[p], PrimeNu[#] == s &], {p, pa}]; s++]][[2, 1]] (* terms < 10^10, Giovanni Resta, Apr 21 2017 *)
PROG
(PARI) isok(n) = sumdigits(n) == omega(n); \\ Michel Marcus, Apr 20 2017
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Jonathan Frech, Apr 19 2017
EXTENSIONS
More terms from Michel Marcus, Apr 20 2017
STATUS
approved