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