let rec($)n k m i=n<2&()=Printf.printf"%d
"k||n/i*i=n&(n/i$m-m/i)m i||(n$k)k(i+1);;for n=10000to 10300do(n$n)n 2done