import Data.List
main::IO()
main =do
  getLine
  xs <-fmap (fmap (\x->read x::Int) . words) getLine
  print . length . filter (\x->length x ==1) . group . sort $xs