import Data.List
main = do
	getLine
	d <- getContents >>= return . map ((\(x:y:_)->x-30000*y) . map read . words) . lines
	let m = maximum d
	let n = head [i|i<-[1..length d],d!!(i-1) == m]
	mapM_ putStrLn $
		if m * 6 >= 3000000
			then "YES" : take 6 (repeat (show n))
			else ["NO"]