module Main where

import Control.Monad

main :: IO ()
main = do
    [a, b] <- fmap read . words <$> getLine :: IO [Int]
    let f x = if (a + b + x) `mod` 3 == 0 then True else False
    print $ length $ filter f [a .. b]