n,*a=$<.read.split.map &:to_i
a.sort!;a+=[a[-1]+1]
p n.times.count{|i|a[i+1]>a[i-1]+1}