program fractii;
var a,x,y,S : longint;
    f : text;

function prime(a,b:longint):boolean;
var ok : boolean;
    i : integer;
begin
ok := true;
for i := 2 to 500 do
if (a mod i=0) and (b mod i = 0) then
                                begin
                                ok := false;
                                break;
                                end;
prime := ok;
end;

begin

assign(f,'fractii.in');
reset(f);
read(f,a);
close(f);

S := 0;
for x := 1 to a do
for y := 1 to a do
if prime(x,y) then S := S+1;

assign(f,'fractii.out');
rewrite(f);
write(f,S);
close(f);
end.