1257: [CQOI2007]余数之和sum - BZOJ

Description

给出正整数n和k，计算j(n, k)=k mod 1 + k mod 2 + k mod 3 + … + k mod n的值，其中k mod i表示k除以i的余数。例如j(5, 3)=3 mod 1 + 3 mod 2 + 3 mod 3 + 3 mod 4 + 3 mod 5=0+1+0+3+3=7
Input

输入仅一行，包含两个整数n, k。
Output

输出仅一行，即j(n, k)。
Sample Input
5 3

Sample Output
7

HINT

50%的数据满足：1<=n, k<=1000 100%的数据满足：1<=n ,k<=10^9

枚举商，然后算出区间[l,r]，商只有sqrt（n）个，就可以了

 var
     n,k,ans:int64;

 procedure main;
 var
     i,l,r:int64;
 begin
     read(n,k);
     i:=k div n;
     l:=k div(i+)+;
     r:=n;
     while l> do
         begin
             inc(ans,k*(r-l+)-i*(l+r)*(r-l+)>>);
             if l= then break;
             i:=k div(l-);
             l:=k div(i+)+;
             r:=k div i;
         end;
     writeln(ans);
 end;

 begin
     main;
 end.