OFFSET
1,1
COMMENTS
The terms appear to come in batches dictated by their primorial base expansion (A049345), these terms having only low digit values in that base.
MATHEMATICA
Select[Range[550000], Block[{i, m, n = #, p}, m = i = 1; While[n > 0, p = Prime[i]; m *= p^Mod[n, p]; n = Quotient[n, p]; i++]; If[# < 2, 0, # Total[#2/#1 & @@@ FactorInteger[#]]] >= m > #] &] (* Michael De Vlieger, Feb 05 2022 *)
PROG
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Antti Karttunen, Feb 05 2022
STATUS
approved