Prime number sieve

gistfile1.clj

(defn multiple-of [number divisor] (and (not (= number divisor))
                            (= (mod number divisor) 0)))

(defn not-multiples-or-1 [numbers divisor]
      (filter (fn [n]
                    (and 
                      (not (= n 1))
                      (not (multiple-of n divisor)))) numbers))

(defn primes-in-decreasing-seq [n] (reduce not-multiples-or-1 n (range 2 (Math/sqrt (first n)))))
(defn primes-in-increasing-seq [n] (reduce not-multiples-or-1 n (range 2 (Math/sqrt (last n)))))
(defn primes-in-seq [n] (reduce not-multiples-or-1 n (range 2 (Math/sqrt (apply max n)))))