(while:prn(= n(read))": "(sum[if(>(mod n _)0)0(>(/ n _)_)(+(/ n _)_)_](range 1 sqrt.n)))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page