ll@n,@k,d[1d6];wt(sum[ll][i,-Divisor(n-k,d),0](d[~i]>k));