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