Program sir;
const md=194767;
 var a:array [0..1 shl 15] of longint;
     s,n,i,j,aux:longint;
     fi,fo:text;
begin
 assign(fi,'1-sir.in');
  assign(fo,'1-sir.out');
 reset(fi); rewrite(fo); readln(fi,n,s); aux:=n*(n-1) div 2; s:=aux-s;
  if s<0 then write(fo,'0')
                      else begin
                            s:=s div 2; a[0]:=1;
                            for i:=1 to n-1 do
                             for j:=s downto i do
                              a[j]:=(a[j]+a[j-i]) mod md;
                             write(fo,a[s]);
                            end;
  close(fo);
end.