(for p 3 1997(or(find[<(mod(* #0=(+ p 2)p)_)1](range 2(- p 1)))(prn p","#0#)))