sum(dispterms(n)+n:last(ifactors(i+1))[1],i,n:1,100);