QOJ.ac

QOJ

ID题目提交者结果用时内存语言文件大小提交时间测评时间
#208893#4478. Jo loves counting11d10xyAC ✓442ms23324kbC++14924b2023-10-09 21:52:572023-10-09 21:52:57

Judging History

你现在查看的是最新测评结果

  • [2023-10-09 21:52:57]
  • 评测
  • 测评结果:AC
  • 用时:442ms
  • 内存:23324kb
  • [2023-10-09 21:52:57]
  • 提交

answer

#include<bits/stdc++.h>
using namespace std;
using ll=long long;
using lll=__int128;
constexpr ll mod=29ll<<57|1,mxn=1e12;
constexpr int sqn=1e6;
auto ml=[](ll x,ll y)->ll{return(lll)x*y%mod;};
auto inv=[](ll p){ll res=1,t=mod-2;for(;t;t>>=1,p=ml(p,p))if(t&1)res=ml(res,p);return res;};
auto sum=[](ll n)->ll{return(lll)n*(n+1)/2%mod;};
int p[sqn+10],pt;
basic_string<ll>h[79010];
ll n;
ll dfs(ll now,ll v,int i){
	if(i>pt||now>n/p[i]/p[i])return ml(v,sum(n/now));
	ll res=0;
	for(int j=0;now<=n;now*=p[i],j++)
	(res+=j!=1?dfs(now,ml(v,h[i][j]),i+1):0)%=mod;
	return res;
}
int main(){
	for(int i=2;i<=sqn;i++)
	if(!p[i])for(int j=p[++pt]=i;j<=sqn;j+=i)p[j]=1;
	for(int i=1;i<=pt;i++){
		h[i]={1};
		ll n=1,v=1;
		for(int j=1;(n*=p[i])<=mxn;j++)
		v=ml(v,p[i]),h[i]+=(ml(n,inv(j))+mod-v)%mod,(v+=h[i][j])%=mod;
	}
	int T;
	for(cin>>T;T--;)cin>>n,cout<<ml(dfs(1,1,1),inv(n))<<endl;
	return 0;
}

详细

Test #1:

score: 100
Accepted
time: 442ms
memory: 23324kb

input:

12
4
959139
9859
125987
209411
965585325539
213058376259
451941492387
690824608515
934002691939
1000000000000
1

output:

2
2544652967005436170
1531132428015608197
4112905740393076193
2210911161352244432
3734327250979959061
3166689602614938339
2205751131915532448
1440445581699720020
350511728590182760
1099683734530790325
1

result:

ok 12 lines