Program zad2b;
  var n,i,j,m,t:integer;
  a,b:array[1..20] of integer;
  flag:boolean;
Begin
  m:=0;
  read(n);
  for i:=1 to n do
    read(a[i]);
  for i:=1 to n do
  begin
  flag:=true;
  for j:=2 to trunc(sqrt(a[i])) do
    if a[i] mod j<>0 then continue else
    begin
      flag:=false;
      break;
    end;
  if (flag=true)and(a[i]<>1) then 
  begin
    m:=m+1;
    b[m]:=a[i];
  end;
  end;

  for i:=1 to m do
    writeln(b[i]);
End.