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