OFFSET
1,12
COMMENTS
LINKS
EXAMPLE
The uniform divisors of 40 are {1, 2, 4, 5, 8, 10}, so a(40) = 40/10 = 4.
MATHEMATICA
Table[n/Max[Select[Divisors[n], SameQ@@Last/@FactorInteger[#]&]], {n, 100}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Sep 17 2019
STATUS
proposed