欧拉函数

声明

  RT：

　

  首先，你要知道什么是欧拉函数、欧拉函数的内涵、数学上怎么求欧拉函数、欧拉函数的作用及欧拉线筛的做法。

  

  　　欧拉线筛不会的点这儿！

  欧拉函数基础知识：https://www.cnblogs.com/handsomecui/p/4755455.html （说白了 φ(n) 就是求1~n中与n互质的数的个数）

 

var
        f,zhi,v:array[0..1000001] of longint;  //f[i]表示φ(i);
        i,j,t,n:longint;
begin
        readln(n);
        f[1]:=1;
        for i:=2 to n do  //欧拉线筛求欧拉函数
        begin
                if v[i]=0 then
                begin
                        inc(t);
                        zhi[t]:=i;
                        f[i]:=i-1;
                end;
                j:=1;
                while (j<=t) and (zhi[j]*i<=n) do
                begin
                        v[zhi[j]*i]:=1;
                        if i mod zhi[j]=0 then
                        begin
                                f[i*zhi[j]]:=f[i]*zhi[j];
                                break;
                        end else f[i*zhi[j]]:=f[i]*(zhi[j]-1);
                        inc(j);
                end;
        end;
        for i:=1 to n do
                writeln(f[i]);
end.

　　推荐题目：洛谷P2158