let () =
    let m = 1000000000 + 7 in
    let main () =
        let n, k = Scanf.sscanf (read_line ()) "%d %d" (fun n k -> n, k) in
        let sn = float n |> sqrt |> floor |> int_of_float in
        let perfect = n / sn = sn in
        let arr = Array.make (2 * sn - if perfect then 1 else 0) 1 in
        for i = 0 to sn - 1 do
            arr.(i) <- n/(i + 1) - n/(i + 2)
        done;
        let l = Array.length arr in
        let rev = Array.init l (fun i -> arr.(l - 1 - i)) in
        let rec loop i prev =
            if i = 0 then prev.(l - 1) else (
                let next = Array.make l 0 in
                for j = 0 to l - 1 do
                    next.(j) <- ((if j = 0 then 0 else next.(j - 1)) + prev.(l - 1 - j) * rev.(j)) mod m;
                done;
                loop (i - 1) next
            )
        in
        Printf.printf "%d\n" (loop k (Array.make l 1))
    in
    main ()