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