Var ok:boolean;
    f,g:text;
    s,n,j,i,k:longint;
Begin
assign (f,'fractii.in');
assign (g,'fractii.out');
reset (f);
rewrite (g);
Readln (f,n);
s:=n*n;
For i:=2 to trunc(sqrt(n)) do
if n mod i=0
then
    k:=k+1;
if k=0
then
    s:=s-1;
For i:=1 to n do
    For j:=1 to n do
        begin
        ok:=false;
        k:=2;
        While (ok=false) and (k<>n) do
        begin
        if (i mod k=0) and (j mod k=0)
        then
            begin
            ok:=true;
            s:=s-1;
            end;
        k:=k+1;
        end;
        end;
Writeln (g,s);
close(f);
close(g);
end.