#该b文件由Antti Karttunen计算,2021-11-27#在GP/PARI CALCULATOR版本2.9.4(发布)和运行linux(x86-64/GMP-6.1.2内核)64位版本的amd64中,编译时间:2017年12月19日,gcc版本7.3.0(Ubuntu 7.3.0-1ubuntu1),线程引擎:pthread#使用以下程序:##up_to=16384;#A336853(n)={my(f=因子(n));对于(i=1,#f~,f[i,1]=下一素数(f[i、1]+1));(因子返回(f)-n);};#Aux347098(n)=如果(1==n,n,A336853(n));#方向逆校正(v)={my(u=向量(#v));u[1]=(1/v[1]);对于(n=2,#v,u[n]=(-u[1])*sumdiv(n,d,if(d)-->