var     a:array[1..1000000] of boolean;
        n,k,i,j:longint;
        f1,f2:text;
begin
  assign(f1,'sdo.in');
  reset(f1);
  assign(f2,'sdo.out');
  rewrite(f2);
  readln(f1,n,k);

  for i:=1 to n do
    begin
      read(f1,j);
      a[j]:=true;
    end;
  j:=0;
  i:=1;
  while j<k do
    if a[i] then begin inc(i); inc(j); end else inc(i);
  write(f2,i-1);
  close(f2);
end.