var i,j,n,k,m:longint;
    a,b,c:array[1..100000] of longint;
    
begin
  assign(input,'scmax.in');
  assign(output,'scmax.out');
  reset(input);
  rewrite(output);
  read(n);
  for i:=1 to n do read(a[i]);
  b[1]:=1;
  k:=1;
  m:=1;
  for i:=2 to n do begin
    b[i]:=1;
    for j:=1 to i-1 do begin
      if (a[j]<a[i]) and (b[i]<=b[j]) then begin
        b[i]:=b[j]+1;
        c[i]:=j;
      end;
    end;
    if b[i]>k then begin
      k:=b[i];
      m:=i;
    end;
  end;
//  for i:=1 to n do write(b[i],' ');
//  writeln;
//  for i:=1 to n do write(c[i],' ');
//  writeln;
  for i:=1 to k do begin
//    write(m, ' ' );
    c[k-i+1]:=a[m];
    m:=b[m];
  end;
  writeln(k);
  for i:=1 to k do write(c[i], ' ');
end.