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