//infoarena 1sir
type sir = array[0..33500] of longint;
var d,d1: sir;
    n,s : longint;

procedure calc;
var i,j:longint;
begin
d[0]:=1;
//d[-1]:=1;
for i:=2 to n do
        begin
        for j:=0 to n*(n-1) div 2 do
                d1[j]:=(d[j+(i-1)]+d[abs(j-(i-1))]) mod 194767;
        d:=d1;
        fillchar(d1,sizeof(d1),0);
        end;
end;

begin
assign(input,'1-sir.in'); reset(input);
assign(output,'1-sir.out'); rewritE(output);
readln(n,s);
s:=abs(s);
if s > n*(n-1) div 2 then writeln(0) else
begin
calc;
writeln(d[s]);
end;
close(input); closE(output);
end.