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