n,k=gets.split.map &:to_i;p 2**(n-k)-((k+1)/k-1)*n