var n,ct,k:int64;
    p:longint;
    a:array[1..1000]of int64;
    fi,fo:text;
function combinari(n,p:integer):integer;
begin
     if (p=0)or(p=n) then combinari:=1
            else combinari:=combinari(n-1,p-1)+combinari(n-1,p);
end;
begin
     assign(fi,'pascal.in'); reset(fi);
     assign(fo,'pascal.out'); rewrite(fo);
     read(fi,n,k); ct:=0;
     if (n-1)mod 2=1 then begin
     for p:=1 to (n-1)div 2 + 1 do begin
        a[p]:=combinari(n,p);
        if a[p] mod k=0 then inc(ct);
        end; ct:=2*ct-1; end
     else begin
     for p:=1 to (n-1)div 2 do begin
        a[p]:=combinari(n,p);
        if a[p] mod k=0 then inc(ct);
        end; ct:=2*ct; end;
     writeln(fo,ct);
     close(fi);
     close(fo);
end.