main :: IO ()
main = do
    input <- getLine
    let [a, b] = map read (words input)
        valid i = i `mod` 3 == 0 || '3' `elem` show i
    putStr $ unlines [show i | i <- [a..b], valid i]