main :: IO ()
main = interact $ unlines . map show . solve . map read . words

solve :: [Int] -> [Int]
solve [a, b] = filter (\x -> x `mod` 3 == 0 || elem '3' (show x)) [a .. b]