import Control.Applicative ((<$>))
import Control.Monad (mapM_)

main :: IO ()
main = do
  solve <$> getl (map read . words) >>= mapM_ print

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

getl :: (String -> a) -> IO a
getl f = f <$> getLine