(extend util.combinations srfi-1 srfi-42)(map print(take(sort(map(apply$ *)(combinations(list-ec(: n 2 128)(not(any?-ec(: i 2 n)(=(gcd n i)i)))n)3)))100))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page