# Project Euler : Problem 7 - Part 2

(defn list-primes ([n] (list-primes n [2] 3)) ([n primes i] (if (>= (count primes) n) primes (if (not-any? #(= (rem i %) 0) primes) (recur n (conj primes i) (+ i 2)) (recur n primes (+ i 2)))))) (println (nth (list-primes 10001) 10000))