ll@n,@k,v[n];wt(argmax[i,1,n@FactorM(gcd(i,n))/k](Divisor(i,v)));