bzoj2005

Description

栋栋有一块长方形的地，他在地上种了一种能量植物，这种植物可以采集太阳光的能量。在这些植物采集能量后，栋栋再使用一个能量汇集机器把这些植物采集到的能量汇集到一起。栋栋的植物种得非常整齐，一共有n列，每列有m棵，植物的横竖间距都一样，因此对于每一棵植物，栋栋可以用一个坐标(x, y)来表示，其中x的范围是1至n，表示是在第x列，y的范围是1至m，表示是在第x列的第y棵。由于能量汇集机器较大，不便移动，栋栋将它放在了一个角上，坐标正好是(0, 0)。能量汇集机器在汇集的过程中有一定的能量损失。如果一棵植物与能量汇集机器连接而成的线段上有k棵植物，则能量的损失为2k + 1。例如，当能量汇集机器收集坐标为(2, 4)的植物时，由于连接线段上存在一棵植物(1, 2)，会产生3的能量损失。注意，如果一棵植物与能量汇集机器连接的线段上没有植物，则能量损失为1。现在要计算总的能量损失。下面给出了一个能量采集的例子，其中n = 5，m = 4，一共有20棵植物，在每棵植物上标明了能量汇集机器收集它的能量时产生的能量损失。 在这个例子中，总共产生了36的能量损失。

Input

仅包含一行，为两个整数n和m。

Output

仅包含一个整数，表示总共产生的能量损失。

首先这个是可以用求gcd(x,y)=1 (1<=x<=a,1<=y<=b)做的，O(N)的……

不过暴力容斥比较好写，我就暴力了……

program bzoj2005;
var
    n,m,i,j,k:longint;
    f:array [0..1000001] of int64;
    ans:int64;

procedure swap (var a,b:longint);inline;
begin
    if a=b then exit;
    a:=a xor b;
    b:=a xor b;
    a:=a xor b;
end;

begin
    read(n,m);
    if n>m then swap(n,m);
    for i:=n downto 1 do
        begin
            f[i]:=int64(m div i)*(n div i);
            for j:=2 to n div i do
                f[i]:=f[i]-f[i*j];
        end;
    ans:=0;
    for i:=1 to n do
        ans:=ans+f[i]*(2*i-1);
    writeln(ans);
end.