do:input""n:for i=1to(n-1)^.5k=k+(i+n/i)*!mod(n,i)next:?n,": ",k:k=29*!i-16loop
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page