51nod 1575 Gcd and Lcm

题目链接：http://www.51nod.com/onlineJudge/questionCode.html#!problemId=1575

万年巨坑终于填掉了……

首先是煞笔西瓜的做题历程O_O。

原题要求$\sum_{i=1}^n\sum_{j=1}^i\sum_{k=1}^i [(i,j),(i,k)]$

那么先推一波式子吧

balabala

我也忘记自己是怎么推的了（雾

总之最后推出来是这样的

$ ans=\sum_{i=1}^{n} f(\left\lfloor\frac{n}{i}\right\rfloor)*g(i) $

其中 $ f(x)=\sum_{i=1}^{x} μ(i)*i^2*\frac{\frac{x}{i}(\frac{x}{i}+1)}{2} $  ，$ g(x)=[\sum_{d|x} \frac{x}{d}*φ(d)]^2 $

然后接下来的问题就是怎么求f(x)的值和g(x)的前缀和了，求出来就能分段计算辣。

嗯……

想想怎么求……

$ μ(i)*i^2 $ 可以用杜教筛直接求嘛，然后f(x)就可以O(3/4)分段求，可是在总式里面再跑一次分段的话复杂度会……诶，不管了，先写。

g(x)的前缀和可以洲阁筛求，嗯，码码码……（这么复杂的题怎么才7级？

啊，T了，意料之中……

改改改

跑得越来越快了……

诶，极限数据要跑两秒多，可是10组数据的话还是要10多秒

改不动，弃坑……

（51nod群上问了下，夹克老爷说他不会。

问问YJQ

他说$ \sum_{j=1}^i\sum_{k=1}^i [(i,j),(i,k)] $ 这东西是个积性函数。

所以直接用洲阁筛对这个东西求前缀和就好了（掀桌……

也就是说，看到题目，你开始推式子，你就输辣。

具体来说，对于一个质数$ p $，当 $ i=p^k $ 时，$ \sum_{j=1}^i\sum_{k=1}^i [(i,j),(i,k)] =(2k+1)*(p^{2k}-p^{2k-1})+p^{k-1} $

优越写法才2.8k，第一种方法直接上5k……

代码不贴辣。

upd at 2017.4.26好像这题烂大街了，我来发个洲阁筛模板吧

#include<cstdio>
#include<cstring>
#include<algorithm>
#include<cmath>
#define ui unsigned int
#define ull unsigned long long
#define MN 100001
#define SQ 64000
using namespace std;
ui read_p,read_ca;
inline ui read(){
    read_p=;read_ca=getchar();
    while(read_ca<''||read_ca>'') read_ca=getchar();
    while(read_ca>=''&&read_ca<='') read_p=read_p*+read_ca-,read_ca=getchar();
    return read_p;
}
const ui HA=1e6+;
ui T,n,MMH,p[MN/],_p[MN/],num=,TTT,O,Num,f[SQ],_S[SQ],G_2[SQ],G_1[SQ],G_0[SQ],_T[SQ],P_P[MN/],_G_2[MN/],_G_1[MN/],_O[SQ],_Num,_l[HA],NNN=,LL;bool bo[MN];
ui gcd(ui x,ui y){return y?gcd(y,x%y):x;}
ui _b_y[HA],_b_z[HA],_b_ne[HA];
inline void _in(ui x,ui y,ui z){_b_y[++_Num]=y;_b_z[_Num]=z;_b_ne[_Num]=_l[x];_l[x]=_Num;}
inline ui Q_2(ui x){if (x%==)return (ull)(x+x+)*(x+)/*x;else if (x%==) return (ull)(x+x+)*x/*(x+);else return (ull)x*(x+)/*(x+x+);}
inline ui Q_1(ui x){return (ull)x*(x+)>>;}
inline ui sqr(ui x){return x*x;}
inline ui min(ui a,ui b){return a<b?a:b;}
inline ui find(ui x){
    if (x<HA) return _b_z[_l[x]];
    register ui i;
    for (i=_l[x%HA];i;i=_b_ne[i]) if (_b_y[i]==x) return _b_z[i];
    return ;
}
inline ui Mmh(ui n){
    register ui i,j,c;ui o=sqrt(n)+1e-,MMH=,k=,R,Ls,Rs,P,SS=;ull x,Q,O_O;
    while (p[LL+]<=o&&LL<num) LL++;
    for (i=;i<=n;i=j+) j=n/(c=n/i),_S[++k]=c,_in(c%HA,c,k),_T[k]=f[k]=,G_2[k]=Q_2(c),G_1[k]=Q_1(c),G_0[k]=c;
    for (i=k,j=;i;_O[i--]=j) while (_S[i]>=p[j+]) j++;
    for (f[i=]=,P=Ls=Rs=k;i<=LL;i++){
        if (i==) while (_S[P]<_p[i]&&P) P--;else P=Rs;
        while (_S[Rs]<_p[i+]&&Rs) SS+=f[Rs--];
        while (_S[Ls]<p[i+]&&Ls) SS-=f[Ls--];
        if (i!=LL) MMH+=SS*P_P[i+];
        for (j=P;j;j--)
        if (f[j]){
            for (x=p[i],Q=,c=;x<=_S[j];x*=p[i],Q*=p[i],c++){
                R=find(_S[j]/x);
                f[R]+=(O_O=f[j]*((*c+)*(p[i]-)*sqr(Q)*p[i]+Q));if (Ls>=R&&R>Rs) SS+=O_O;
                if (i!=LL) if (_S[R]>=p[i+]&&_S[R]<_p[i+]) MMH+=O_O*P_P[i+];
            }
        }
        for (j=;j<=P;j++)
        if (_S[j]>=p[i]) c=min(i-,_O[R=find(_S[j]/p[i])]),
        G_2[j]-=_p[i]*(G_2[R]-(_G_2[c]-_G_2[_T[R]]))+(_G_2[i-]-_G_2[_T[j]]),
        G_1[j]-=p[i]*(G_1[R]-(_G_1[c]-_G_1[_T[R]]))+(_G_1[i-]-_G_1[_T[j]]),
        G_0[j]-=(G_0[R]-(c-_T[R]))+(i--_T[j]),_T[j]=i;
    }
    for (j=;j<=k;j++) c=min(LL,_O[j]),G_2[j]-=_G_2[c]-_G_2[_T[j]],G_1[j]-=_G_1[c]-_G_1[_T[j]],G_0[j]-=c-_T[j];
    for (i=;i<=k;i++) MMH+=f[i]*((G_2[i]-G_1[i])*+G_0[i]),_l[_S[k]%HA]=;
    return _Num=,MMH;
}
int main(){
    register ui i,j;
    for (i=;i<MN;i++){
        if (!bo[i]) p[++num]=i,_p[num]=p[num]*p[num],_G_2[num]=_G_2[num-]+_p[num],_G_1[num]=_G_1[num-]+p[num],P_P[num]=*p[num]*(p[num]-)+;
        for (j=;j<=num&&(O=i*p[j])<MN;j++){
            bo[O]=;
            if (!i%p[j]) break;
        }
    }
    T=read();while(T--){
        n=read();
        printf("%u\n",Mmh(n));
    }
}