OFFSET
1,4
COMMENTS
LINKS
EXAMPLE
The divisors of 90 that are 2 or whose prime indices have a common divisor > 1 are {1, 2, 3, 5, 9}, so a(90) = 90/9 = 10.
MATHEMATICA
Table[n/Max[Select[Divisors[n], #==2||GCD@@PrimePi/@First/@FactorInteger[#]!=1&]], {n, 100}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Sep 23 2019
STATUS
approved