NUMBER789 Pascal

Var n,k,d:longint; p:array[1..5000000]of longint;
Procedure Nhap;
Begin
        Read(n,k);
End;
Procedure sang;
Var i,j,max:longint;
Begin
    max:=n;
    for i:=1 to max do p[i]:=i;
    //p[1]:=1;
    For i:=2 to n div 2 do
        If p[i]=i then
        Begin
            j:=i*2;
            While j<=max do
            Begin
                p[j]:=i;
                j:=j+i;
            End;
        End;
End;
Procedure Giai;
Var i:longint;
Begin
    sang;
    For i:=2 to n do
        If p[i]<=k then
        Begin
            inc(d);
                //  Writeln(i,' ',p[i]);
        End;
    Write(d);
End;
Begin
    Assign(input,'number789.inp'); Reset(input);
    Assign(output,'number789.out'); Rewrite(output);

    Nhap;
    Giai;
End.