OFFSET
1,2
COMMENTS
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
FORMULA
a(n) = n / A327528(n). - Amiram Eldar, Dec 19 2023
EXAMPLE
The uniform divisors of 40 are {1, 2, 4, 5, 8, 10}, so a(40) = 10.
MATHEMATICA
Table[Max[Select[Divisors[n], SameQ@@Last/@FactorInteger[#]&]], {n, 100}]
a[n_] := Module[{f = FactorInteger[n], p, e}, p = f[[;; , 1]]; e = f[[;; , 2]]; Max@ Table[(Times @@ p[[Position[e, _?(# >= k &)] // Flatten]])^k, {k, Union[e]}]]; Array[a, 100] (* Amiram Eldar, Dec 19 2023 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Sep 16 2019
STATUS
approved