OFFSET
0,3
LINKS
Michael De Vlieger, Table of n, a(n) for n = 0..10000
MATHEMATICA
Map[PrimeOmega, {1}~Join~Select[Range[10^4], Last[#] == Length[#] &@ PrimePi@ FactorInteger[#][[All, 1]] &]] (* Michael De Vlieger, Feb 06 2020 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Franklin T. Adams-Watters, Nov 09 2006
STATUS
approved