var n,i,j,aux,nn:word;
    a:array[1..1000] of byte;
    ok:boolean;
    v:array[1..50000] of boolean;
    f,g:text;
begin
assign(f,'economie.in');reset(f);
assign(g,'economie.out');rewrite(g);
read(f,n);
for i:=1 to n do read(f,a[i]);
repeat
   ok:=True;
   for i:=1 to n-1 do
     if a[i]>a[i+1] then begin
                ok:=false;
                 aux:=a[i];
                 a[i]:=a[i+1];
                 a[i+1]:=aux;
                       end;
until ok=true;
if a[1]=1 then begin
           writeln(g,1);
           writeln(g,1);
           end
          else if (a[1]=2) and (a[i+1] mod 2=0) then begin
                  writeln(g,2);
                  writeln(g,2,' ',3);
                     end
                                        else begin
                                        v[i]:=true;
                                        nn:=n;
                                        for i:=2 to n do begin
                                           v[i]:=true;
                                           for j:=1 to i-1 do
                                               if a[i] mod a[j]=0 then begin
                                               v[i]:=false;
                                               nn:=nn-1;
                                               break;
                                               end;
                                          end;

end;
writeln(g,nn);
for i:=1 to n do begin
    if v[i]=true then writeln(g,a[i],' ');
    end;
close(f);
close(g);
end.