var a,nho:array[0..1000] of longint;
f1,f2:text;
i,j,dem:word;
function kt(j:word):boolean;
begin
    if (a[j-1]<a[j]) and (a[j]>a[j+1]) then exit(true);
    exit(false);
end;
procedure daovitri(a,b:longint);
var tam:longint;
begin
    tam:=a; a:=b; b:=tam;
end;
begin
    assign(f1,'bai1.inp');reset(f1);
    assign(f2,'bai1.out');rewrite(f2);
    i:=0;
    while eof(f1)=false do
       begin
           inc(i);
           read(f1,a[i]);
       end;
    dem:=0;
    for j:=1 to i do
       if kt(j)=true then
          begin
              inc(dem);
              nho[dem]:=j;
          end;
    writeln(f2,dem);
    for i:=dem downto 1 do
       write(f2,nho[i],' ');
    close(f1);close(f2);
end.

uses crt;
var f:text; i,n,d:longint;
a:array[1..100000000]of longint;
begin
clrscr;
   assign(f,'input.pas');reset(f);
       readln(f,n);
       for i:=1 to n do read(f,a[i]);
   close(f);
   assign(f,'output.pas');rewrite(f);
      for i:=2 to n-1 do 
         if (a[i]>a[i+1])and(a[i]>a[i-1]) then inc(d);
      writeln(f,d);
      for i:=n-1 downto 2 do 
          if (a[i]>a[i+1])and(a[i]>a[i-1]) then write(f,i,' ');
   close(f); 
end.