(dotimes(i 763)(do[(j 1)(k 0)]((or(>=(inc! j)i)(<(fmod i(* j j))1))(if(= k 6)(print i)))(if(<(fmod i j)1)(inc! k))))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page