awk '{
    N=$1
    K=$2

    for(i=0;i<=N;i++)is_prime[i]=1
    is_prime[0]=0
    is_prime[1]=0
    for(i=2;i*i<=N;i++){
        if(!is_prime[i])continue;
        for(j=i+i;j<=N;j+=i)is_prime[j]=0
    }

    for(i=2;i<=N;i++){
        if(!is_prime[i])continue;
        for(j=i;j<=N;j+=i)count[j]+=1;
    }

    sum=0
    for(i=2;i<=N;i++){
        if(count[i]>=K)sum+=1
    }
    print sum
}
'