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);
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page