(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#))