(defn n-105 [n]
  (->> (range 1 (inc n))
       (filter odd?)
       (filter (fn [odd]
                 (let [c (filter (fn [n]
                                   (zero? (rem odd n)))
                                 (filter odd? (range 1 (Math/floor (/ odd 2)))))]
                   (= (inc (count c)) 8))))
       count))
(println (n-105 (read)))