import Control.Applicative ((<$>), (<*>))
import Control.Monad (replicateM)
import Data.ByteString.Char8 (ByteString)
import qualified Data.ByteString.Char8 as B

main :: IO ()
main = do
  solve <$> replicateM 3 (getl $ readi B.readInt) >>= putStrLn

solve :: [Int] -> String
solve [a, b, c]
  | (a + b - 1) `div` b * 2 >= (a + c - 1) `div` c * 3 = "YES"
  | otherwise = "NO"

getl :: (ByteString -> a) -> IO a
getl f = f <$> B.getLine

readi :: Integral a =>  (ByteString -> Maybe (a, ByteString)) -> ByteString -> a
readi f s = let Just (n, _) = f s in n