Primitiv clojure sieve algorithm