约数个数

【题目描述】
定义f(x)为x的约数个数，x为正整数。
求 =f(a)+f(a+1)+……+f(b)，即a,b之间每个数的约数的总和。

【输入数据】
从shlqsh.in中读入数据。
一行两个正整数a、b，以一个空格隔开。

【输出数据】
向shlqsh.out中输出数据。
一行一个整数，即答案。

【数据范围】
对于50%的数据，1≤a≤b≤1000；
对于100%的数据，1≤a≤b≤10,000,000。

【输入输出样例】
shlqsh.in shlqsh.out
2 6 13

var
 a,b,i,j,d1,ans,d2:longint;
begin
 read(a,b);
 for i:=1 to b do
  begin
   d1:=b div i;
   d2:=(a-1) div i;
   ans:=ans+(d1-d2);
  end;
 write(ans);
end.