sum((k:1,j:1,while j<=k do(k:k+j*(1-signum(mod(i,j))),j:j+1),if i<k then dispterms(i)),i,1,500);