007.clj

; Problem 7: 10001st prime
; By listing the first six prime numbers: 2, 3, 5, 7, 11, and 13, we can see that the 6th prime is 13.

; What is the 10 001st prime number?

(defn prime? [n]
   (every? false? (filter #(zero? (mod n %)) (take-nth 1 (range 2 (+ 1 (int (Math/sqrt n))))))))

(first (drop (inc 10001) (filter prime? (range)))) ; 104743