RosettaCodeData/Task/Sum-to-100/Mathematica/sum-to-100-4.math

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