OFFSET
1,2
COMMENTS
Complement of A112769.
LINKS
Seiichi Manyama, Table of n, a(n) for n = 1..10000
EXAMPLE
12 = 2*2*3 has prime multiplicities (2,1) so is not in the sequence.
36 = 2*2*3*3 has prime multiplicities (2,2) so is in the sequence.
150 = 2*3*5*5 has prime multiplicities (1,1,2) so is in the sequence.
MAPLE
q:= n-> (l-> (t-> andmap(i-> l[i, 2]<=l[i+1, 2],
[$1..t-1]))(nops(l)))(sort(ifactors(n)[2])):
select(q, [$1..120])[]; # Alois P. Heinz, Nov 11 2019
MATHEMATICA
Select[Range[200], OrderedQ[FactorInteger[#][[All, 2]]]&]
Select[Range[90], Min[Differences[FactorInteger[#][[;; , 2]]]]>=0&] (* Harvey P. Dale, Jan 28 2024 *)
PROG
(PARI) isok(n) = my(vm = factor(n)[, 2]); vm == vecsort(vm); \\ Michel Marcus, May 17 2018
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, May 16 2018
STATUS
approved