program ball;
const max=33;
var i,j,m,n:longint;
    c:array[0..max,0..max]of longint;

begin

        readln(n,m); readln;
        fillchar(c,sizeof(c),0);
        c[0,0]:=1;
        for j:=1 to m do
          for i:=0 to n-1 do
            c[i,j]:=c[(i-1+n)mod n,j-1]+c[(i+1)mod n,j-1];
        writeln(c[0,m]);

end.
/**************************************************************
	Problem: 2278
	User: admin
	Language: Pascal
	Result: Wrong Answer
****************************************************************/