var f,g:Text;
    a,v:array[1..5000] of longint;
    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);
i:=1;
while (max<>0) and (i<=n) do begin
  if v[i]=max then begin
    write(g,i,' ');
    dec(max);
  end;
  inc(i);
end;
close(g);
end.