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