(do*((x'(1)`(,@x,i))(i 2(do'(j 1)((if(find(incf j)x)/(>(gcd i j)1))j))))((= i 159)(format t"~{~D ~}"x)))