(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#)))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page