let rec f i x s=i>x/2&f 1(read_int(Printf.printf"%d: %d "x(x+s)))0||f(i+1)x(s+1/(1+x mod i)*i);;f 1(read_int())0
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page