for n=1to 500s=1
for i=1to s:s=s+i*!mod(n,i)next
if!s<n?n
next