module Main where

main :: IO ()
main = do
  { [a,b] <- getInts
  ; putStr $ unlines $ [show x | x <- [a .. b], 0 == x `mod` 3 || '3' `elem` show x]
  }

getInts :: IO [Int]
getInts = map read . words <$> getLine