(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))