(dotimes(i 301)(do[(r #1=(+ i 10000))(n #1#)(j 2(+ j 1))]((< n 2)(print r))(if #0=(<(fmod n j)1)(dec! r(/ r j)))(while #0#(set! n(/ n j)))))