%I #23 Sep 30 2018 10:40:16
%S 12,20,24,28,40,44,45,48,52,56,60,63,68,72,76,80,84,88,90,92,96,99,
%T 104,112,116,117,120,124,126,132,135,136,140,144,148,152,153,156,160,
%U 164,168,171,172,175,176,180,184,188,189,192,198,200,204,207,208,212,220
%N Numbers with more than one prime factor and, in the ordered factorization, at least one exponent is less than the previous exponent when read from left to right.
%C It appears that this sequence lists the integers x such that A085079(n) > n. - _Michel Marcus_, Jul 30 2015
%H Seiichi Manyama, <a href="/A112769/b112769.txt">Table of n, a(n) for n = 1..10000</a>
%e 90 = 2^1 * 3^2 * 5^1 and 2 > 1, so 90 is in sequence.
%t mopfQ[n_]:=Module[{e=FactorInteger[n][[All,2]]},Length[e]>1&&Min[ Differences[ e]]<0]; Select[Range[300],mopfQ] (* _Harvey P. Dale_, May 30 2018 *)
%o (PARI) isok(n) = {f = factor(n)[,2]; if (#f > 1, for (k=2, #f, if (f[k] < f[k-1], return (1)););); return (0);} \\ _Michel Marcus_, Jul 30 2015
%Y Cf. A097318, A097319, A097320, A304678.
%K nonn
%O 1,1
%A _Ray Chandler_, Sep 23 2005, based on a suggestion from _Leroy Quet_