(defn sieve [s]
  (cons (first s)
        (lazy-seq (sieve (filter #(not= 0 (mod % (first s)))
                                 (rest s))))))

(defn get-n-prime [n]
  (nth (sieve (iterate inc 2)) (- n 1)))

(println "Happy" (get-n-prime (* 2 3 3 17)) "Year!")