(defun p(n)(=(gcd(!(1- n))n)1))(do((n 4))((format(<(incf n 2)301)"~D:~{ ~D+~D~}
"n(loop for p from 3 to(/ n 2)if(every'p`#1=(,p,(- n p)))nconc`#1#))))