var n,i,j,aux,nn:word;
    a:array[1..1000] of word;
    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;               }
  for i:=1 to n-1 do
     for j:=i+1 to n do
     if a[i]>a[j] then begin
                 aux:=a[i];
                 a[i]:=a[j];
                 a[j]:=aux;
                       end;
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
                                        ok:=true;
                                        nn:=n;
                                        for i:=2 to n do begin
                                          ok:=true;
                                           for j:=1 to i-1 do
                                               if a[i] mod a[j]=0 then begin
                                             ok:=false;
                                               nn:=nn-1;
                                               break;
                                               end;
                                          end;

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