题目链接

(BZOJ) https://www.lydsy.com/JudgeOnline/problem.php?id=5330
(Luogu) https://www.luogu.org/problem/P4607

题解

首先观察一些性质。
一个回文串可以轮换产生多少个本质不同的串？周期那么多个。
可是有一种特殊情况，就是对于长度为偶数的回文串\(a=ss^Rss^Rss^R...ss^R\) (\(s^R\)表示\(s\)的reverse), 如果轮换位数恰好等于周期的一半，那么会产生\(a'=s^Rss^Rss^Rs...s^Rs\), 这是另一个回文串，因此会算重！
于是我们大胆猜测，设\(a\)的周期为\(T\), 则当\(T\)为偶数时对答案的贡献为\(\frac{T}{2}\), 否则为\(T\).
一个简单的证明是，串\(a\)轮换\(d\)位和轮换\(T-d\)位所得到的串互为reverse，若得到了回文串，那么\(d=T-d\).

那么现在我们的问题简化了: 设长度为\(n\)字符集为\(m\)周期为\(T\)的回文串有\(g(T)\)个，要求的就是\(\sum_{d|n}g(d)h(d)\), 其中\(h(d)\)为贡献。
现在考虑怎么算周期为\(T\)的回文串: 设\(G(T)\)表示有多少个回文串满足\(T\)是它的周期(但不是最小周期，即周期是\(T\)的因数)，则\(G(T)=m^{\lceil \frac{T}{2}\rceil}\).
且有\(G(T)=\sum_{d|T}g(d)\), 由莫比乌斯反演可得\(g(T)=sum_{d|T}\mu(\frac{T}{d})G(d)\).
然后直接枚举因数裸求就可以得到54至60分(当然也可以\(g(T)=G(T)-\sum_{d|T}g(d)\), 但是这样由于复杂度较劣只有30至36分，期望得分是官方题解里给的)

当\(n\le 10^{18}\)时，\(n\)的约数个数\(d(n)\le 103680\).
推式子: \(\sum_{d|n}\sum_{d'|d}G(d')\mu(\frac{d}{d'})h(d)=\sum_{d|n}\sum_{d'|\frac{n}{d}}G(d)\mu(d')h(dd')\)
观察式子，当\(d\)为奇数\(\frac{n}{d}\)为偶数时，每一个奇数都会和一个偶数配成一对，并且\(\mu\)值相反。因此这种情况对答案贡献为\(0\).
在其他情况下，一定满足\(h(dd')=h(d)d'\), 即\(\sum_{d|n}G(d)h(d)\sum_{d'|\frac{n}{d}}d'\mu(d')\)
考虑\(\sum_{d|n}d\mu(d)\)的组合意义，易得原式等于\(\sum_{d|n}G(d)h(d)\prod_{p|\frac{n}{d}}(1-p)\), 其中\(p\)为质数
DFS所有的质因数即可。

时间复杂度\(O(n^{\frac{1}{4}}\log n+d(n)\log n)\), 其中\(d(n)\)为\(n\)的约数个数.

代码

#include<cstdio>
#include<cstdlib>
#include<cstring>
#include<ctime>
#include<algorithm>
#include<vector>
#define llong long long
#define pll pair<llong,llong>
#define mkpr make_pair
using namespace std;const int N = 103680;
vector<pll> pfac;
llong P;llong quickmul(llong x,llong y,llong mod=P)
{return (x%mod)*(y%mod)%mod;
}
llong quickpow(llong x,llong y,llong mod=P)
{llong cur = x,ret = 1ll;for(int i=0; y; i++){if(y&(1ll<<i)) {ret = quickmul(ret,cur,mod)%mod; y-=(1ll<<i);}cur = quickmul(cur,cur,mod);}return ret;
}namespace Pollard_Rho
{const int N = 15;const int LGM = 64;llong fc[LGM+2];llong a[N+2];llong m;int n;llong ans;llong quickmul(llong x,llong y,llong mod=P){llong tmp=(x*y-(llong)((long double)x/mod*y+1.0e-8)*mod)%mod;return tmp<0 ? tmp+mod : tmp;}llong quickpow(llong x,llong y,llong mod=P){llong cur = x,ret = 1ll;for(int i=0; y; i++){if(y&(1ll<<i)) {ret = quickmul(ret,cur,mod)%mod; y-=(1ll<<i);}cur = quickmul(cur,cur,mod);}return ret;}llong gcd(llong x,llong y) {return y==0 ? x : gcd(y,x%y);}llong absl(llong x) {return x>=0 ? x : -x;}llong ssrand(llong x,llong c,llong y) {return (quickmul(x,x,y)+c)%y;}bool Miller_Rabin(llong x){if(x==1) return false;if(x==2) return true;if((x&1)==0) return false;llong y = x-1,t = 0ll;while((y&1)==0) y>>=1,t++;for(int i=1; i<=5; i++){llong bas = rand()%(x-1)+1;llong cur = quickpow(bas,y,x);for(int j=1; j<=t; j++){llong tmp = quickmul(cur,cur,x);if(tmp==1 && cur!=1 && cur!=x-1) return false;cur = tmp;}if(cur!=1) return false;}return true;}llong pollard_rho(llong x,llong c){llong i = 1,k = 2;llong y = rand()%(x-1)+1; llong t = y;while(true){i++;y = ssrand(y,c,x);llong d = gcd(absl(t-y),x);if(d>1 && d<x) return d;if(t==y) return x;if(i==k){t = y;k<<=1;}}}void factorize(llong x,llong c){if(x==1) return;if(Miller_Rabin(x)){n++; fc[n] = x;return;}llong p = x,k = c;while(p>=x) p = pollard_rho(p,c--);factorize(p,k); factorize(x/p,k);}void Factorize(llong _m){m = _m;n = 0;factorize(m,120);sort(fc+1,fc+n+1);pfac.clear();for(int i=1; i<=n; i++){if(fc[i]==fc[i-1]) {pfac[pfac.size()-1].second++;}else {pfac.push_back(mkpr(fc[i],1));}}}
}llong n,m;
llong ans;void dfs(int pos,llong x,llong coe)
{if(pos==pfac.size()){if((x&1ll) && (!((n/x)&1ll))) {return;}llong tmp = quickmul(coe,quickmul(quickpow(m,(x+1)>>1),(x&1)?x:(x>>1)));ans = (ans+tmp)%P;return;}for(int i=0; i<=pfac[pos].second; i++){dfs(pos+1,x,i==pfac[pos].second?coe:quickmul(coe,(P+1-pfac[pos].first%P)));x = x*pfac[pos].first;}
}int main()
{srand(time(NULL));int T; scanf("%d",&T);while(T--){scanf("%lld%lld%lld",&n,&m,&P);Pollard_Rho::Factorize(n);
//      for(int i=0; i<pfac.size(); i++) printf("(%lld,%lld) ",pfac[i].first,pfac[i].second); puts("");ans = 0ll;dfs(0,1ll,1ll);printf("%lld\n",ans);}return 0;
}