OFFSET
1,9
COMMENTS
LINKS
EXAMPLE
The divisors of 84 that are 1, prime, or whose prime indices are pairwise coprime are {1, 2, 3, 4, 6, 7, 12, 14, 28}, so a(84) = 84/28 = 3.
MATHEMATICA
primeMS[n_]:=If[n==1, {}, Flatten[Cases[FactorInteger[n], {p_, k_}:>Table[PrimePi[p], {k}]]]];
Table[n/Max[Select[Divisors[n], #==1||PrimeQ[#]||CoprimeQ@@primeMS[#]&]], {n, 100}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Sep 20 2019
STATUS
approved