REBOL[]n: d: 1 loop 341[print n: n -(n // d: d // 6 + 2)+ d]