<>=~$";for$i(2..$`){$a[$i]?0:map$a[$i*$_]++,1..$`/$i;$c+=$a[$i]>=$'}print$c