Goldbach partition by kozima

(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