Hi there ๐ Not the most efficient ๐ but is elegant ๐ (defn sieve [n] (loop [s (range 2 n) primes []] (if-let [c (first s)] (recur (remove #(zero? (mod % c)) s) (conj primes c)) primes)))