(defn multiple? [m n] (zero? (rem m n)))

(def primes
  (let [not-multiple? (complement multiple?)
        generate-primes (fn gen-primes [nums]
                          (cons (first nums)
                                (lazy-seq
                                  (gen-primes (filter #(not-multiple? % (first nums))
                                                      (rest nums))))))]
    (generate-primes (iterate inc 2))))

(take 10000 primes)