OFFSET
1,1
MATHEMATICA
DeleteDuplicates[SortBy[Table[{n, Count[Divisors[n], _?(#>4&)]}, {n, 100000}], Last], GreaterEqual[ #1[[2]], #2[[2]]]&][[;; , 1]] (* Harvey P. Dale, Aug 18 2024 *)
PROG
(PARI) a(n) = my(k=1); while (sumdiv(k, d, (d>=5)) != n, k++); k; \\ Michel Marcus, Jan 20 2023
CROSSREFS
KEYWORD
nonn
AUTHOR
Ilya Gutkovskiy, Jan 19 2023
STATUS
approved