(defn remainder-reminder [n k]
  (count
         (for [a (range 1 (+ n 1))
               b (range 1 (+ n 1))
               :when (>= (rem a b) k)]
           1)))

(let [nk (map #(Integer. %)  (clojure.string/split (read-line) #" "))]
  (println (remainder-reminder (first nk) (last nk))))
