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