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