do:input""n:for i=1to(n-1)^.5k=k+(i+n/i)*!mod(n,i)next:?n,": ",k:k=29*!i-16loop