{$n+,e-}
type matrice=array[0..80,-1..35] of int64;

var a,b:matrice;
    n,k:byte;
    s:int64;

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

function suma:int64;
var i:integer;
    s:int64;
begin
  for i:=0 to n do
    s:=(s+a[n,i]) mod 194767;
end;

function num:int64;
var i,j:byte;
begin
  b[1,1]:=1;
  for i:=2 to n do
      for j:=0 to s div 2 do
      begin
        if (j = k) and (i=n)
           then a[i,j]:=a[i-1,j-1]+a[i-1,j+1]+b[i-1,j-1]
           else
           begin
             a[i,j]:=a[i-1,j-1]+a[i-1,j+1];
             b[i,j]:=b[i-1,j-1]+b[i-1,j+1];
           end;
      end;
  num:=suma;
end;

begin
  cit;
  assign(output,'1-sir.out');
  rewrite(output);
  if s=n
     then
         writeln(1)
     else
         writeln(num);
  close(output);
end.