var a,b:array[-80..80,-1400..1400] of longint;
    n,q,i,j,k,s,sol:longint;
    f1,f2:text;
begin
  assign (f1,'1-sir.in');
  assign (f2,'1-sir.out');
  reset (f1);
  readln (f1,n,s);
  a[0,0]:=1;
  for i:=2 to n do
    begin
      if i mod 2=0 then
        begin
          fillchar(b,sizeof(b),0);
          for j:=-i+1 to i-1 do
            for q:=-((i-1)*i div 2) to (i-1)*i div 2 do
              begin
                b[j+1,q+j+1]:=(b[j+1,q+j+1]+a[j,q]) mod 194767;
                b[j-1,q+j-1]:=(b[j-1,q+j-1]+a[j,q]) mod 194767;
              end;
        end
        else
        begin
          fillchar(a,sizeof(a),0);
          for j:=-i+1 to i-1 do
            for q:=-((i-1)*i div 2) to (i-1)*i div 2 do
              begin
                a[j+1,q+j+1]:=(a[j+1,q+j+1]+b[j,q]) mod 194767;
                a[j-1,q+j-1]:=(a[j-1,q+j-1]+b[j,q]) mod 194767;
              end;
        end;
    end;
  if n mod 2=0 then
    begin
      for i:=-n to n do
        sol:=(sol+b[i,s]) mod 194767;
    end
      else
    begin
      for i:=-n to n do
        sol:=(sol+a[i,s]) mod 194767;
    end;
  rewrite (f2);
  writeln (f2,sol);
  close(f2);
end.