Problem: Mashmokh's boss, Bimokh, didn't like Mashmokh. So he fired him. Mashmokh decided to go to university and participate in ACM instead of finding a new job. He wants to become a member of Bamokh's team. In order to join he was given some programming tasks and one week to solve them. Mashmokh is not a very experienced programmer. Actually he is not a programmer at all. So he wasn't able to solve them. That's why he asked you to help him with these tasks. One of these tasks is the following.

A sequence of l integers b1, b2, ..., bl (1 ≤ b1 ≤ b2 ≤ ... ≤ bl ≤ n) is called good if each number divides (without a remainder) by the next number in the sequence. More formally <image> for all i (1 ≤ i ≤ l - 1).

Given n and k find the number of good sequences of length k. As the answer can be rather large print it modulo 1000000007 (109 + 7).

Input

The first line of input contains two space-separated integers n, k (1 ≤ n, k ≤ 2000).

Output

Output a single integer — the number of good sequences of length k modulo 1000000007 (109 + 7).

Examples

Input

3 2


Output

5


Input

6 4


Output

39


Input

2 1


Output

2

Note

In the first sample the good sequences are: [1, 1], [2, 2], [3, 3], [1, 2], [1, 3].

Solution (in PYTHON3):

Solution:
import math
a=list(map(int,input().split()))
if(a[1]>=12):
    x=a[1]
    a[1]=12
else:
    x=a[1]
dp=[[0 for i in range(a[1]+1)]for j in range(a[0]+1)]
for i in range(1,a[0]+1):
    dp[i][0]=1
for i in range(1,a[0]//2+1):
    dp[i][1]=(a[0]//i-1)

for j in range(2,a[1]+1):
    for i in range(1,(a[0]//(2**j))+1):
        l=2*i
        while(dp[l][j-1]!=0):
            dp[i][j]+=dp[l][j-1]
            l=l+i
            

cnt=a[0]
mod=1000000007
arr=[0 for i in range(a[1]+1)]
for i in range(1,a[1]):
    for j in range(1,a[0]//2+1):
        arr[i]+=dp[j][i]
ans=1
for i in range(1,a[1]-1):
    ans1=1
    for q in range(1,i+1):
        ans1=ans1*(x-q)
    ans2=1
    for j in range(1,i+1):
        ans2=ans2*j
    ans=ans1//ans2
    cnt=cnt%mod+(arr[i]*ans)%mod
    cnt=cnt%mod

cnt=cnt%mod+arr[a[1]-1]%mod
print(cnt%mod)