def g i,j,r,f;r<1?d(i+1,f):j<$n&&((!f[j]&&$a[j]<=r&&(b=f.dup;b[j]=1;g(i,j+1,r-$a[j],b)))||g(i,j+1,r,f))end
def d i,f;i==$n||f[i]&&(g(i,i+1,$a[i],f)||d(i+1,f))end
($a=gets.split.map(&:to_i).sort.reverse;puts d(0,[1])?:YES:"NO")while 0<$n=gets.to_i