var n,i,j,nn,aux:word;
    a:array[1..1000] of longint;
    ok:boolean;
    v:array[1..1000] 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[2]=3) then begin
                  writeln(g,2);
                  writeln(g,2,' ',3);
                     end
                                        else begin
                                        v[1]:=true;
                                         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;
                                                 n:=n-1;
                                                 break;
                                                 end;
                                          end;

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