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.             
 
 
 

cHJvZ3JhbSB3cm9uZ01vZHVsbzsgCnZhciBULCBOLCBhLCBpLGosICBBbnMgOiBxd29yZDsKYmVnaW4KICAgICgqYXNzaWduKGlucHV0LCAgJ2lucHV0LnR4dCcpOyAgcmVzZXQoaW5wdXQpOwogICAgYXNzaWduKG91dHB1dCwgJ291dHB1dC50eHQnKTsgcmV3cml0ZShvdXRwdXQpOyopCiAgICByZWFkbG4oVCk7CiAgICBmb3IgaTo9MSB0byBUIGRvCiAgICAgICAgICAgICBiZWdpbgogICAgICAgICAgICAgICAgcmVhZGxuKE4sYSk7CiAgICAgICAgICAgICAgICBpZiBhPTEgdGhlbiBBbnM6PU4qTgogICAgICAgICAgICAgICAgICAgICAgIGVsc2UKICAgICAgICAgICAgICAgICAgICAgICAgICBiZWdpbgogICAgICAgICAgICAgICAgICAgICAgICAgICAgQW5zOj1OLU4gZGl2IDI7IAogICAgICAgICAgICAgICAgICAgICAgICAgICAgZm9yIGo6PU4gZGl2IDIgZG93bnRvIDEgZG8gQW5zOj1BbnMrdHJ1bmMoTiBkaXYgaik7CiAgICAgICAgICAgICAgICAgICAgICAgICAgZW5kOyAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICB3cml0ZWxuKEFucyk7ICAgICAgICAgIAogICAgICAgICAgICAgIGVuZDsgIAogZW5kLiAgICAgICAgICAgICAKCgog

NQo0IDIKMTMgMQo3IDYKOSA4CjEgMTAwMAoK

5
4 2
13 1
7 6
9 8
1 1000