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