(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))))