Program Tenchuongtrinh;
Const  fi='SNT.inp';
           fo='SNT.out';
Var  A:array[1..100] of longint;
       n:integer;

Procedure Nhap;
  var  f:text; i:longint;
  begin
    assign(f,fi);
    reset(f);
    readln(f,n);
    For i:=1 to n do read(f,A[i]);
    close(f);
  end;

Function  nto(x:longint): boolean;
  var i,t:longint;
  begin
    if (x<2) then exit(false);
    if (x=2) or (x=3) then exit(true);
    t:=trunc(sqrt(x));
    for i:=2 to n do
      if (x mod i=0) then exit(false);
    exit(true);
  end;

procedure  Xuat;
  var i,dem:longint;
  begin
    assign(f,fo);
    rewrite(j);
    dem:=0;
    for i:=1 to n do
      if nto(A[i]) then dem:=dem+1;
    writeln(f,dem);
    close(f);
  end;
    
Begin
         Nhap;
         Xuat;
End.