#!/bin/bash

read N K
seq 2 $N | factor | awk -v K=$K '
    BEGIN{sum=0} 
    {split("",a); for(i=2;i<=NF;i++)a[$i]=1; if(length(a)>=K)sum+=1}
    END{print sum}
'