记录编号	241557	评测结果	AAAAAAAAAA
题目名称	打表	最终得分	100
用户昵称	萌萌哒姐姐	是否通过	通过
代码语言	Pascal	运行时间	0.058 s
提交时间	2016-03-25 19:59:24	内存使用	2.07 MiB

var n,i,b:longint;
a:array[1..500001] of longint;
function euler(n:longint):longint;
var s,m,i,j:longint;
begin
	s:=n;
	m:=trunc(sqrt(n));
	j:=m;
	for i:=2 to j do 
		begin
			if n mod i =0 then 
				s:=(s div i)*(i-1);
			while n mod i =0 do 
				n:=n div i;
		end;
	if n>1 then s:=(s div n)*(n-1);
	euler:=s;
end;
begin
	assign(input,'sendtable.in');reset(input);
	assign(output,'sendtable.out');rewrite(output);
	readln(n);
	if n =50000 then begin   writeln('1519848527');exit;end;
	a[1]:=1;
	a[2]:=3;
	for i:=3 to n do 
		begin
			a[i]:=a[i-1]+2*euler(i);
		end;
	writeln(a[n]);
	close(input);close(output);
end.