ll@n--,s=0;int@l,p[l];REP(i,Prime(l,p))s-=min(~l+n*p[i],0);wt(s);