program p1025;
var m,n,t,i,j,k,c,s:longint;
begin
  readln(t);
  for c:=1 to t do
   begin
     readln(n,m); s:=0;
     for i:=0 to m do
      for j:=0 to (m div 2) do
        begin
          k:=n-i-j;
          if (i+j*2+k*5=m) and (k>=0) then s:=s+1;
        end;
     writeln(s);
    end;
end.
/**************************************************************
	Problem: 2093
	User: admin
	Language: Pascal
	Result: Wrong Answer
****************************************************************/