program pair;

{$APPTYPE CONSOLE}
var
f:text;
a,b,c,d:integer;
function nsd(a,b :longint):longint;
begin
if a=0 then nsd:=b else nsd:=nsd(b,a mod b);
end;
begin
assign (f,'pair.in');
reset (f);
close(f);
//b:=0;
c:=1;
while  c<=a do
begin
 b:=c;
 while  b<=a do
begin
if nsd(c,b)=c then inc(d);
inc(b);
end;
inc(c);
end;
assign (f,'pair.out');
rewrite(f);
writeln(f,a);
close(f);
end.