uses crt;
var f:text; n,i: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,'NGUYEN.TXT');reset(f);
      readln(f,n);
      for i:=1 to n do readln(f,a[i]);
   close(f);
   assign(f,'NGUYENTO.TXT');rewrite(f);
      for i:=1 to n do
         if nt(a[i]) then write(f,a[i],' ');
   close(f);
end.

program bai_giai;
var f,g:text;
    n:longint;
function ktnt(k:longint):boolean;
var r:longint;
begin
    ktnt:=false;
    if k<2 then exit;
    for r:=2 to trunc(sqrt(k)) do
        if k mod r=0 then exit;
    ktnt:=true;
end;
BEGIN
    Assign(f,'NGUYEN.TXT');  reset(f);
    Assign(g,'NGUYENTO.TXT');  rewrite(g);
    while not eof(f) do
        begin
            readln(f,n);
            if ktnt(n) then writeln(g,n);
        end;
    close(f); close(g);
end.