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