Var f,g:text;
    n,p,q,a,b,s:longint;
Begin
assign (f,'fractii.in');
assign (g,'fractii.out');
reset (f);
rewrite (g);
Readln (f,n);
for p:=2 to n do
    for q:=2 to n do
    begin
    a:=p;
    b:=q;
    while a<>b do
    if a<b
    then
        b:=b-a
    else
        a:=a-b;
    if a=1
    then
        s:=s+1;
    end;
Writeln (g,s+n+n);
close(f);
close(g);
end.