program E;
var m,n: integer;
begin
assign(input, 'problem.in');
reset(input);
read(n);
read(m);
l:=0;
for i:=1 to n do begin
                     k:=i!;
                     if k mod m =0 then l:=l+1
                     else l:=l+0;
                 end;
assign(output, 'problem.out');
rewrite(output);
write(l);
close(input);
close(output);
end.