{$q-,r-,s-,d-,i-}
const rest=194767;maxn=50;maxsuma=maxn*maxn div 2;
var t:TExt;
   sol,i,last,suma,n,s:longint;
   V:array[0..maxn,-1..maxn,-maxsuma..maxsuma]of longint;
begin
   assign(t,'1-sir.in');reset(T);readln(t,n,s);close(T);
   V[1,1,0]:=1;
   for i:=1 to N do for last:=1 to N do for suma:=-(last*(last-1)div 2) to (last*(last-1)div 2) do
   begin
      V[i,last,suma]:=V[i-1,last-1,suma-last]+V[i-1,last+1,suma];
      if V[i,last,suma]>=rest then dec(V[i,last,suma],rest);
   end;
   for last:=1 to N do inc(sol,V[n,last,S]);
   sol:=sol mod rest;
   assign(t,'1-sir.out');rewrite(T);writeln(t,sol);close(T);
end.