program wrongModulo;
var T, N, a, i,inizio, Ans, V,R : int64;
begin
readln(T);
for i:=1 to T do
             begin
                readln(N,a);
                if a=1 then Ans:=N*N
                       else
                          begin
                            Ans:=0;
                            inizio:=1;
                            while inizio<=N do
                                   begin
                                     V:=trunc(N div inizio);
                                     R:= trunc(N div V);
                                     Ans:=Ans+(R-inizio+1)*V;
                                     inizio:=R+1;
                                   end;
                          end;
                writeln(Ans);          
              end;  
 end.