main = do
    l <- getLine
    let a = read (words l !! 0) :: Int
        b = read (words l !! 1) :: Int
    mapM_ print [x | x <- [a..b], x `mod` 3 == 0 || '3' `elem` show x]