【LOJ #3284】「USACO 2020 US Open Platinum」Exercise（容斥 / 组合数学 / DP）

传送门

首先$n$个数的置换个数是$n!$
证明可以用生成函数
循环的$egff={\sum }_i\frac{(i-1)!}{i!}{x}^i={\sum }_i\frac{x^i}{i}$
$\ln (\frac{1}{1-x})={\sum }_i\frac{x^i}{i}=f$
$\exp f=\frac{1}{1-x}={\sum }_i{x}^i$
因为是$egf$乘上$i!$即可

---

首先可以枚举每个循环的大小$a$
那么就是这样一个东西
$$\prod _{{\sum }_a=n}(\mathrm{l}\mathrm{c}\mathrm{m}(a){)}^{\frac{n!}{\prod a!}}$$

然后考虑把$lcm$拆成${\prod }_i{p}_i^{k_i}$
然后考虑每个质数次幂的贡献
$$\prod _j{p}_j^{{\sum }_{k}f(p_j,k)}$$
$$=\prod _j{p}_j^{{\sum }_{k}g(p_j^k)}$$
$f(p_j,k)$表示有多少种$a$序列满足其中$p_j$最高次幂为$k$的方案数
$g(p_j^k)$表示有多少种满足存在$p_j^k$的倍数
令$v=p_j^k$
再考虑容斥
设$f_i$表示所有循环为$v$的倍数，大小总和为$vi$的方案数
可以枚举当前的循环大小，钦定这个循环第一个点
就是$f_i={\sum }_{j=1}^i\left(\genfrac{}{}{0ex}{}{iv-1}{jv-1}\right)(jv-1)!f_{i-j},f_0=1$
那么枚举$v$的倍数的大小，剩下随便选
就是${\sum }_i\left(\genfrac{}{}{0ex}{}{n}{iv}\right)f_i(n-iv)!$
但是会算重，考虑容斥系数是循环个数
于是把容斥系数带入$f$中
$f_i=-{\sum }_{j=1}^i\left(\genfrac{}{}{0ex}{}{iv-1}{jv-1}\right)(jv-1)!f_{i-j},f_0=-1$
复杂度为${\sum }_{p_i}{\sum }_k\lfloor \frac{n}{p_i^k}{\rfloor }^2=n^2{\sum }_{p_i}{\sum }_k\lfloor \frac{1}{p_i^k}\rfloor =n^2\frac{{\pi }^2}{6}$

#include<bits/stdc++.h>
using namespace std;
#define cs const
#define re register
#define pb push_back
#define pii pair<int,int>
#define ll long long
#define y1 shinkle
#define fi first
#define se second
#define bg begin
cs int RLEN=1<<20|1;
inline char gc(){
    static char ibuf[RLEN],*ib,*ob;
    (ib==ob)&&(ob=(ib=ibuf)+fread(ibuf,1,RLEN,stdin));
    return (ib==ob)?EOF:*ib++;
}
inline int read(){
    char ch=gc();
    int res=0;bool f=1;
    while(!isdigit(ch))f^=ch=='-',ch=gc();
    while(isdigit(ch))res=(res+(res<<2)<<1)+(ch^48),ch=gc();
    return f?res:-res;
}
inline ll readll(){
    char ch=gc();
    ll res=0;bool f=1;
    while(!isdigit(ch))f^=ch=='-',ch=gc();
    while(isdigit(ch))res=(res+(res<<2)<<1)+(ch^48),ch=gc();
    return f?res:-res;
}
inline int readstring(char *s){
	int top=0;char ch=gc();
	while(isspace(ch))ch=gc();
	while(!isspace(ch)&&ch!=EOF)s[++top]=ch,ch=gc();
	s[top+1]='\0';return top;
}
template<typename tp>inline void chemx(tp &a,tp b){a=max(a,b);}
template<typename tp>inline void chemn(tp &a,tp b){a=min(a,b);}
int mod;
inline int add(int a,int b){return (a+b)>=mod?(a+b-mod):(a+b);}
inline int dec(int a,int b){return (a<b)?(a-b+mod):(a-b);}
inline int mul(int a,int b){static ll r;r=(ll)a*b;return (r>=mod)?(r%mod):r;}
inline void Add(int &a,int b){a=(a+b)>=mod?(a+b-mod):(a+b);}
inline void Dec(int &a,int b){a=(a<b)?(a-b+mod):(a-b);}
inline void Mul(int &a,int b){static ll r;r=(ll)a*b;a=(r>=mod)?(r%mod):r;}
inline int ksm(int a,int b,int res=1){for(;b;b>>=1,Mul(a,a))(b&1)&&(Mul(res,a),1);return res;}
inline int Inv(int x){return ksm(x,mod-2);}
inline int fix(ll x){x%=mod;return (x<0)?x+mod:x;}
cs int N=7505;
char xxx;
int c[N][N],n;
int fac[N],f[N],g[N];
int pr[N],tot;
bool vis[N];
char yyy;
inline void init_sieve(int n){
	for(int i=2;i<=n;i++){
		if(!vis[i])pr[++tot]=i;
		for(int j=1;j<=tot&&i*pr[j]<=n;j++){
			vis[i*pr[j]]=1;
			if(i%pr[j]==0)break;
		}
	}
}
inline void init_c(){
	for(int i=0;i<=n;i++){
		c[i][i]=c[i][0]=1;
		for(int j=1;j<i;j++)
		c[i][j]=add(c[i-1][j],c[i-1][j-1]);
	}
	fac[0]=1;
	for(int i=1;i<=n;i++)fac[i]=mul(fac[i-1],i);
}
inline int calc(int v){
	int ln=n/v;
	f[0]=mod-1;
	for(int i=1;i<=ln;i++){
		int res=0;
		for(int j=1;j<=i;j++)
		Dec(res,mul(c[i*v-1][j*v-1],mul(fac[j*v-1],f[i-j])));
		f[i]=res;
	}int res=0;
	for(int i=1;i<=ln;i++){
		Add(res,mul(f[i],mul(fac[n-i*v],c[n][i*v])));
	}return res;
}
int main(){
	#ifdef Stargazer
	freopen("lx.in","r",stdin);
	#endif
	n=read(),mod=read();
	mod=mod-1;
	init_c(),init_sieve(n);
	mod=mod+1;
	int res=1;
	for(int i=1;i<=tot;i++){
		int pw=0;mod=mod-1;
		for(int mt=pr[i];mt<=n;mt*=pr[i])
			Add(pw,calc(mt));
		//,cout<<pw<<'\n';
		mod=mod+1,Mul(res,ksm(pr[i],pw));
	}
	cout<<res<<'\n';
	return 0;
}