OFFSET
1,1
COMMENTS
Every positive integer has a unique q-factorization (encoded by A324924) into factors q(i) = prime(i)/i, i > 0. For example, 147 = q(1)^5 q(2) q(4)^2 has multiplicities (5,1,2), which are not weakly decreasing, so 147 belongs to the sequence.
MATHEMATICA
difac[n_]:=If[n==1, {}, With[{i=PrimePi[FactorInteger[n][[1, 1]]]}, Sort[Prepend[difac[n*i/Prime[i]], i]]]];
Select[Range[1000], !GreaterEqual@@Length/@Split[difac[#]]&]
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, May 12 2019
STATUS
approved