(while:prn(= n(read))": "(sum[if(>(mod n _)0)0(>(/ n _)_)(+(/ n _)_)_](range 1 sqrt.n)))