(for n 0 1e3((rfn r,f([do(if(<= _ n)(r(+ .,1)_))(pr:trunc:/(mod n _)f)](* .,f)))1 1)(prn))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page