(defn input []
  (Integer/parseInt (read-line)))
 
(defn inner-func [n]
  (->> (range 1 n)
    (filter #(zero? (rem n %)))
    count
    inc))
 
(defn NaGO [N]
  (let [t (apply * (range (bigint 1) (inc N)))
        tmp (filter #(zero? (rem t %)) (range 1 (inc t)))]
    (count (filter #(= 75 (inner-func %)) tmp))))
 
(->> (input)
  NaGO
  println)