program de100depuncte;
var f,g:text;
    v:array[1..100000] of 1..1000000;
    nr,n,i,a,b,r:longint;
begin
     assign(f,'pairs.in');
     assign(g,'pairs.out');
     reset(f);
     rewrite(g);
{-rezolvarea problemei------------------------------}
     read(f,n);
     for i:=1 to n do
         read(f,v[i]);
     nr:=0;
     for i:=1 to n do
     begin
         if v[i]<>v[i+1] then
         begin
              a:=v[i];
              b:=v[i+1];
              repeat
                    r:=a mod b;
                    a:=b;
                    r:=b;
              until r=0;
              if a=1 then inc(nr);
         end;
     end;
     write(g,nr);
{---------------------------------------------------}
     close(g);
     close(f);
end.