main :: IO ()
main = do
  n <- readLn
  k <- readLn
  print $ solve n k 1

solve :: Int -> Int -> Int -> Int
solve 0 _ acc = acc
solve n k acc =
  let db = acc*2
      ad = acc+k
      in if db > ad
            then
              solve (n-1) k ad  
             else
              solve (n-1) k db
