program pascalhsz;
uses crt;
var f,g:text;
    d:byte;
    n,m,db,i,eredmeny:longint;
    a:array[0..6000000] of longint;

begin
        a[0]:=0;
        assign(f,'pascal.in');reset(f);
        assign(g,'pascal.out');rewrite(g);
        read(f,n);read(f,d);

        for i:=1 to n do begin
                m:=i;
                while (m mod d)=0 do begin
                        m:=m div d;
                        inc(db);end;
                if i<=(n div 2) then
                        a[i]:=db
                        else a[i]:=a[n-i]+db;
                        end;

        for i:=(n div 2)+1 to n do
                if db>a[i] then eredmeny:=eredmeny+2;
        if (n mod 2)=0 then
                if db>a[n div 2] then eredmeny:=eredmeny+1;

        write(eredmeny);
        close(f);close(g);
        readln;
end.