var
  n,q,d,s,i,j:integer;
  a,b,c:array [0..25001] of integer;
begin
  d:=0;
  q:=0;
  s:=0;
  readln(n);
  if n <> 0 then begin
    for i:= 1 to n do
      readln(a[i]);
    b[0]:=n;
    repeat
      s:=0;
      inc(q);
      for i:=1 to n do begin
        if a[i] > q then
          inc(s);
      end;
     b[q]:=s;
    until s=0;
     c[0]:= q;
     repeat
      s:=0;
      inc(d);
      for i:=0 to q do begin
        if b[i] > d then
          inc(s);
      end;
     c[d]:=s;
    until s=0;
    for i:= 0 to d-1 do
      writeln(c[i]);
  end
  else
end.