function kt(h:integer):boolean;
    var i:integer;
    begin
          kt:=true;
          for i:=1 to trunc(sqrt(h)) do 
            if h mod i=0 then 
             begin
                   kt:=false;
                   exit;
               end;
     end;
var a:array [1..1000] of integer;
      n,i,d:integer;
begin
       readln(n);d:=0;
       for i:=1 to n do
        begin
        readln(a[i]);
       if kt(a[i]) then inc(d);
         end;
        write(d);
        readln;
end.