pos = Cases[ToExpression@sums, _?Positive]; n = 1; While[MemberQ[pos, n], ++n];