var f,g:text;
 i,j,n,max,poz:longint;
v,val,ante,fin:array[0..100000] of longint;
begin
 assign(f,'scmax.in');
 reset(f);
 readln(f,n);
 for i:=1 to n do
  read(f,v[i]);
 close(f);
 for i:=1 to n do
  for j:=i downto 0 do
   if (v[j]<v[i]) and (val[i]-1<val[j]) then begin
    val[i]:=val[j]+1;
    ante[i]:=j;
    if val[i]>max then begin
     max:=val[i];poz:=i;
     end;
   end;
 assign(g,'scmax.out');
 rewrite(g);
 writeln(g,max);
 for i:=n downto 1 do begin
  fin[i]:=v[poz];
  poz:=ante[poz];
  end;
 for i:=1 to n do
  if fin[i]<>0 then
   write(g,fin[i],' ');
 close(g);
end.