n=gets.to_f;s=gets;q={[0,0,0]=>1};cnt=0;
f=->i,j,k{~i&~j&~k!=0 ? q[[i,j,k]] ? q[[i,j,k]] : (q[[i,j,k]]=(i*f[i-1,j,k]+j*f[i+1,j-1,k]+k*f[i,j+1,k-1]+n)/(i+j+k)) : 0}
p f[*[?1,?2,?3].map{|c|s.count(c)}]-1