program wrongModulo; 
var T, N, a, i,j,  Ans : qword;
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:=N div 2 downto 1 do Ans:=Ans+trunc(N div j);
                          end;                
                 writeln(Ans);          
              end;  
 end.