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