var f,g:Text;
    a,v:array[1..5000] of longint;
    poz,nr,u,n,i,max,j:longint;
begin
assign(f,'subsir2.in'); reset(f); assign(g,'subsir2.out'); rewrite(g);
read(f,n);
for i:=1 to n do read(f,a[i]);
for i:=n downto 1 do begin
  max:=0;
  for j:=i+1 to n do if (a[i]<a[j]) and (v[j]>max) then max:=v[j];
  v[i]:=max+1;
end;
max:=0;
for i:=1 to n do if v[i]>max then max:=v[i];
writeln(g,max);
u:=1;
for i:=max downto 1 do begin
  nr:=1000001; poz:=0;
  for j:=u to n do if (v[j]=i) and (a[j]<nr) then begin
    poz:=j;
    nr:=a[j];
  end;
  write(g,poz,' ');
  u:=poz+1;
end;
close(g);
end.