(println
(map
#(loop[a(sorted-set 1)n 1](let[x(first a)a(disj a x)](if(= n %)x(recur(into a[(+ 1(* 2 x))(-(* 3 x)1)])(inc n)))))
[1 2 3 4 5 10 20 30 55]))
KHByaW50bG4KICAobWFwIAogICAgIyhsb29wW2Eoc29ydGVkLXNldCAxKW4gMV0obGV0W3goZmlyc3QgYSlhKGRpc2ogYSB4KV0oaWYoPSBuICUpeChyZWN1cihpbnRvIGFbKCsgMSgqIDIgeCkpKC0oKiAzIHgpMSldKShpbmMgbikpKSkpCiAgICBbMSAyIDMgNCA1IDEwIDIwIDMwIDU1XSkpCg==