uses crt ;
 const 
    fi = 'primefr.inp' ;
    fo = 'primefr.out' ;
   var f : text ;
 a : array[1..100] of longint ;
     i, d , n : longint ;
 function prime(n :longint) : boolean ;
    var i : longint;
         begin
        if n = 2 then prime := True
            else prime := False ;
        for i:=2 to trunc(sqrt(n)) do 
            if n mod i = 0 then
                     begin
                    prime :=false ;
                    break ; 
                     end ;
         end ;
begin
 i := 1 ;
    assign(f,fi) ;
      reset(f) ; 
    read(f,n) ;
    for i := 1 to n do read(f,a[i]);
      close(f);
    for i := 1 to n do 
        if prime(a[i]) = True then inc(d);
    if d = 0 then d := -1 
        else d := sqr(d);
    assign(f,fo) ;
        rewrite(f);
    write(f,d);
       close(f);
end .

uses crt;
var v,r:text;
i,n,j,t,d:integer;
a:Array[1..100] of longint;

function ktuoc(x,y:longint):integer;
begin
while x<>y do
 if x>y then x:=x-y else y:=y-x;
ktuoc:=x;
end;

begin
clrscr;
assign(v,'primefr.inp');
reset(v);
readln(v,n);
for i:=1 to n do read(v,a[i]);
assign(r,'primefr.out');
rewrite(r);
d:=0;
for i:=1 to n-1 do
for j:=i+1 to n do
 if (ktuoc(a[i],a[j])=1) then
 begin
  d:=d+1;
  t:=1;
 end;
if t=0 then write(r,'-1')
else write(r,d);
close(r);
close(v);
end.