program wrongModulo; 
var T, N, a, i,j,inizio, Ans, V, R : int64;
begin
    (*assign(input,  'input.txt');  reset(input);
    assign(output, 'output.txt'); rewrite(output);*)
    readln(T);
    for i:=1 to T do
             begin
                readln(N,a);
                if a=1 then Ans:=N*N
                       else
                          begin
                            Ans:=N-(N div 2);
                            for j:=1 to trunc(sqrt(N)) do Ans:=Ans+trunc(N div j);
                            inizio:=trunc(sqrt(N))+1;
                            while (inizio<=(N div 2))  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.