program pascal;
{$APPTYPE CONSOLE}
uses
  SysUtils;
var fin,fout:text;
    k,i,j,n,m:longint;
    Rez,R,D:Int64;
    v,pred:array [0..1000000] of int64;
{*-----------------MAIN------------------}
begin
        assign(fin,'pascal.in'); reset(fin);
        assign(fout,'pascal.out'); rewrite(fout);

        readln(fin,r,d);
        pred[0]:=1;
        for i:=2 to r+1 do
        begin
                for k:=0 to i do v[k]:=pred[k]+pred[k-1];
                Pred:=V;
        end;

        for i:=0 to r do if v[i] mod d = 0 then inc(rez);
        Writeln(fout,Rez);

        close(fin);
        close(fout);
end.