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