(def positive-integers (iterate inc 1)) (def evenly-divisible? (comp zero? rem)) (defn evenly-divisible-by-numbers? [from to number] (let [numbers (range from (+ to 1))] (every? (partial evenly-divisible? number) numbers))) (defn positive-numbers-evenly-divisible-by-numbers [from to] (filter (partial evenly-divisible-by-numbers? from to) positive-integers)) (first (positive-numbers-evenly-divisible-by-numbers 1 10)) ; 2520 ;(first ; (positive-numbers-evenly-divisible-by-numbers 1 20)) ; java.lang.OutOfMemoryError: GC overhead limit exceeded