var f:text;
    n,i,j:integer;
function ired(a,b:integer):boolean;
var i:integer;
    ir:boolean;
begin
     ir:=true;
     for i:=2 to b do if ((a mod i=0) and (b mod i=0)) then begin
         ir:=false;
         break;
     end;
     ired:=ir;
end;
begin
     assign(f,'fractii.in');
     reset(f);
     readln(f,n);
     for i:=1 to n do
         for j:=1 to n do if (ired(i,j)) inc(n);
     assign(f,'fractii.out');
     rewrite(f);
     write(f,n);
end.