program aliu;
var f:text;
    a,b:array[1..1000] of word;
    v:array[1..50000] of 0..1;
    i,j,n,nr,k,x:word;
    e:boolean;
begin
  assign(f,'economie.in');
  reset(f);
  readln(f,n);
  for i:=1 to n do readln(f,a[i]);
  close(f);
  assign(f,'economie.out');
  rewrite(f);
  k:=n-1;
  repeat
  e:=false;
  for i:=1 to k do
    if a[i]>a[i+1] then begin
                          x:=a[i];
                          a[i]:=a[i+1];
                          a[i+1]:=x;
                          e:=true;
                          j:=i
                        end;
  k:=j
  until e=false;
  nr:=0;
  for i:=1 to n do
    if v[a[i]]=0 then begin
                        nr:=nr+1;
                        j:=a[i];
                        while j<=a[n] do
                          begin
                          v[j]:=1;
                          j:=j+a[i]
                          end;
                        b[nr]:=a[i]
                      end;
  writeln(f,nr);
  for i:=1 to nr do writeln(f,b[i]);
  close(f);
end.