solve :: Int -> Int -> Int
solve a b
    | abs (a - b) >= 2 = (max a b) * 2 - 1
    | otherwise = (max a b) + (min a b)

main = do
    line <- getLine
    let [a, b] = map read $ words line :: [Int]
    print $ solve a b
    
