OFFSET
1,1
COMMENTS
It appears that this sequence lists the integers x such that A085079(n) > n. - Michel Marcus, Jul 30 2015
LINKS
Seiichi Manyama, Table of n, a(n) for n = 1..10000
EXAMPLE
90 = 2^1 * 3^2 * 5^1 and 2 > 1, so 90 is in sequence.
MATHEMATICA
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 *)
PROG
(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
CROSSREFS
KEYWORD
nonn
AUTHOR
Ray Chandler, Sep 23 2005, based on a suggestion from Leroy Quet
STATUS
approved