Sphenic Numbers by ksk

let rec($)m?(w=m*m*m)j n=n<763&m=n&(j=6&()=Printf.printf"%d
"n;2$0)(n+1);(m+1$j+n/m*m/n-n/w*w/n)n;;(2$0)9

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page