OFFSET
1,1
COMMENTS
First differs from A112769 in lacking 300.
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
Wikipedia, Mode (statistics).
EXAMPLE
The prime factorization of 90 is 2*3*3*5, with modes {3} and maximum 5, so 90 is in the sequence.
MAPLE
filter:= proc(n) local F;
F:= sort(ifactors(n)[2], (a, b) -> a[1]<b[1]);
F[-1, 2] < max(F[.., 2])
end proc:
select(filter, [$2..300]); # Robert Israel, Dec 15 2023
MATHEMATICA
prifacs[n_]:=If[n==1, {}, Flatten[ConstantArray@@@FactorInteger[n]]];
Select[Range[2, 100], FreeQ[Commonest[prifacs[#]], Max[prifacs[#]]]&]
CROSSREFS
Partitions of this type are counted by A240302.
KEYWORD
nonn
AUTHOR
Gus Wiseman, May 11 2023
STATUS
approved