import Control.Monad
import Control.Applicative

main :: IO ()
main = do
  n <- readLn
  dat <- replicateM n $ map read . words <$> getLine

  let ans =
        [ i
        | (i, [g, d]) <- zip [1..] dat
        , (g - 30000 * d) * 6 >= 1000000
        ]

  case ans of
    [] -> putStrLn "NO"
    (i:_) -> do
      putStrLn "YES"
      replicateM_ 6 $ print i

  return ()