// Arhiva de probleme - 12-Perm


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

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

st := -n*(n-1) div 2;
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[j-(i-1)] + a[j+(i-1)];
        end
    else
        begin
        for j := st to dr do
            a[j] := b[j-(i-1)] + b[j+(i-1)];
        end;

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

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


close   (f);
end.