ll@n,f[32],g[],z=1;REP[g](x,Factor(n,f,g))z*=x+1;wt(n-z);