uses crt;
var A : array [1 .. 1000] of integer;
    f1, f2 : text;
    i, j, N, X : integer;

    
begin
clrscr;
assign(f1, 'Dayngto.inp'); reset(f1);
assign(f2, 'Dayngto.out'); rewrite(f2);

readln(f1, N);
for i := 1 to N do 
    begin
        read(f1, A[i]);
        
        X := 0; j := 2;
        while (j < A[i] - 1) and (X = 0) do
            begin
                if A[i] mod j = 0 then X := 1;
                j := j + 1;
            end;
            
        if (A[i] >= 2) and (X = 0) then write(f2, A[i], ' ');
    end;
close(f1); close(f2);
readln
end.

uses crt;
var fi,fo: text;
    n,i,d: integer;
    a,b: array[1..100000] of integer;
function nt(n: integer): boolean;
var i: integer;
begin
    nt:=true;
    if n<2 then nt:=false;
    for i:=2 to round(sqrt(n)) do if n mod i = 0 then nt:=false;
end;
begin
    assign(fi,'dayngto.inp'); reset(fi);
    assign(fo,'dayngto.out'); rewrite(fo);
    readln(fi,n);
    d:=0;
    for i:=1 to n do begin
        read(fi,a[i]);
        if nt(a[i]) then begin
            d:=d+1;
            b[d]:=a[i];
        end;
    end;
    writeln(fo,d);
    for i:=1 to d do write(fo,b[i],' ');
    close(fi);
    close(fo);
end.