program p1sir;
var f, g:text;
    n, ssc, smax, s, modulo, nr, sum:longint;
    v:array[0..30000] of longint; {!}

procedure citire;
  begin
    readln(f,n,s);
    smax:=(n-1)*n div 2;
    if (smax<s) or ((smax-s) mod 2=1) then
      begin
        writeln(g,0);
        close(g);
        halt;
      end;
  end;

procedure rezolvare;
  begin
    ssc:=(smax-s) div 2;{!}
    v[0]:=1;
    for nr:=1 to n-1 do
      for sum:=ssc downto nr do
        v[sum]:=(v[sum]+v[sum-nr]) mod modulo;
    writeln(g,v[ssc]);
  end;

  begin
    assign(f,'1-sir.in'); reset(f);
    assign(g,'1-sir.out'); rewrite(g);
    citire;
    modulo:=194767;
    rezolvare;
    close(f);
    close(g);
  end.