import Data.List
import Control.Applicative
import Control.Monad

main = do
     n <- readLn :: IO Int
     a <- map (read :: String -> Int) . words <$> getLine
     print . length . filter ((== 1) . length) . group $ sort a