n,k=gets.split.map &:to_i;p (1<<n-k)-n*1[k-1]