(dotimes(n 500)(format(loop for d from 1 to n if(=(mod #1=(1+ n)d)0)sum d into k never(< k d))"~A "#1#))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page