OFFSET
1,7
EXAMPLE
Column n lists the a(n) positive integers less than n with more prime factors than n:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
---------------------------------------------------------------------
4 6 8 8 10 12 12 12 16 16 18 16
4 9 10 8 8 15 16
8 9 14 15
6 8 12 14
4 6 10 12
4 9 10
8 9
6 8
4 6
4
MATHEMATICA
Table[Length[Select[Range[n], PrimeOmega[#]>PrimeOmega[n]&]], {n, 100}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Dec 28 2018
STATUS
approved