var s:longint;
    n:integer;
    d:array[1..2,0..32700] of longint;

procedure citire;
begin
  assign(input,'1-sir.in');
  reset(input);
  readln(n,s);
  close(input);
end;

procedure prel;
var i,j,p,q,nr:integer;
begin
  d[2,1]:=1;
  nr:=0;
  for i:=3 to n do
   begin
    if nr=0 then
     begin
      q:=1;
      p:=2;
     end
            else
     begin
      q:=2;
      p:=1;
     end;
    for j:=0 to n*(n-1) div 2 do
      d[q,j]:=(d[p,abs(j-i+1)]+d[p,j+i-1]) mod 194767;
    inc(nr);
    nr:=nr mod 2;
   end;
  writeln(d[q,abs(s)]);
end;

begin
  assign(output,'1-sir.out');
  rewrite(output);
  citire;
  if abs(s)<=n*(n-1) div 2 then
    prel
                           else
    writeln(0);
  close(output);
end.