模拟试——sequence

题目大意：

题解:
f[i,j]表示，长度为i的好序列，以j结尾的情况总数。
然后因为N比较小，我们直接预处理出1~N每个数的全部约数。
最后DP：
f[i,j]:=∑f[i-1,a[j,k]]
k为j的第k个约数，a[j,k]为j的约数。
时间复杂度：O(NK*约数总数）

var
     f,a:array [0..2001,0..2001] of longint;
     n,m,i,j,k,ans:longint;
begin
     assign(input,'suquence.in'); reset(input);
     assign(output,'suquence.out'); rewrite(output);
     readln(n,m);
     for i:=1 to n do
         begin
            f[0,i]:=1;
            for j:=1 to i do
                if i mod j=0
                   then begin
                              inc(a[i,0]);
                              a[i,a[i,0]]:=j;
                        end;
         end;
     for i:=1 to m-1 do
       for j:=1 to n do
         for k:=1 to a[j,0] do
             f[i,j]:=(f[i,j]+f[i-1,a[j,k]]) mod 1000000007;
     for i:=1 to n do
         ans:=(ans+f[m-1,i]) mod 1000000007;
     writeln(ans);
     close(input); close(output);
end.