main = getLine >>= mapM_ print . solve . map read . words

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