($n,$p)=glob<>;for$i(2..$n){$z+=$p[$a[$i]]//=(1-$p)**$a[$i];++$a[$_*$i]for 2..$n/$i}print$z