// Arhiva de probleme - 12-Perm


var
    n, i, j, k, s, st, dr: longint;
    a, b: array [0 .. 128*260] of longint;
    f :text;

begin
assign  (f, '1-sir.in');
reset   (f);
readln  (f,n,s);
close   (f);

st :=  0;
dr :=  n*(n-1) div 2;;

    // i = 1;

            a[0] := 1;

for i:=2 to n do
    if ((i and 1) = 0) then
        begin
        for j := st to dr do
            b[j] := a[abs(j-(i-1))] + a[abs(j+(i-1))];
        end
    else
        begin
        for j := st to dr do
            a[j] := b[abs(j-(i-1))] + b[abs(j+(i-1))];
        end;

assign  (f, '1-sir.out');
rewrite  (f);

if (n and 1) = 0 then
    writeln (f, b[abs(s)])
else
    writeln (f, a[abs(s)]);


close   (f);
end.