OFFSET
1,2
COMMENTS
LINKS
EXAMPLE
The divisors of 63 that are 1, prime, or whose prime indices are relatively prime are {1, 3, 7}, so a(63) = 7.
MATHEMATICA
Table[Max@@Select[Divisors[n], #==1||PrimeQ[#]||GCD@@PrimePi/@First/@FactorInteger[#]==1&], {n, 100}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Sep 17 2019
STATUS
approved