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