uses crt;
var f:text; i,n,dem:longint; a:array[1..1000000]of longint;
function nt(a:longint):boolean;
var i:longint;
begin
i:=2;
while(a>1)and(a mod i<>0)do inc(i);
nt:=i=a;
end;
begin
clrscr;
assign(f,'A1.txt');reset(f);
readln(f,n);
for i:=1 to n do readln(f,a[i]);
close(f);
assign(f,'A1.out');rewrite(f);
for i:=1 to n do
if nt(a[i]) then inc(dem);
writeln(f,dem);
for i:=1 to n do
if nt(a[i]) then write(f,a[i],' ');
close(f);
end.
