利用的是公式:φ(x)=x(1-1/p1)(1-1/p2)(1-1/p3)(1-1/p4)…..(1-1/pn),其中p1, p2……pn为x的所有质因数,x是不为0的整数。φ(1)=1(唯一和1互质的数(小于等于1)就是1本身)。 (注意:每种质因数只一个。比如12=2*2*3那么φ(12)=12*(1-1/2)*(1-1/3)=4)。
program pro;
var
oula:array[0..10000]of longint;
n,i,j:longint;
procedure makeoula(x:longint);
var
ii,jj:longint;
begin
for ii:=1 to x do oula[ii]:=ii;
for ii:=2 to x do
begin
if oula[ii]=ii then
begin
jj:=ii;
while jj<=x do
begin
oula[jj]:=oula[jj]div ii*(ii-1);
inc(jj,ii);
end;
end;
end;
for ii:=1 to x do writeln(ii,' ',oula[ii]);
end;
begin
assign(input,'oula.in'); reset(input);
assign(output,'oula.out'); rewrite(output);
readln(n);
makeoula(n);
close(input);
close(output);
end.