%I#29 2020年6月13日03:34:59
%S 0,0,1,1,1,1,2,3,4,6,7,11,14,20,27,39,52,75102145201286397565,
%电话:79111231581224831734517639991121294518457262703750253478,
%电话:7641610914615613522330131976445788465628894079513496711936620
%N秩-2 Artin常数积(1-1/(p^3-p^2),p=素数)展开为乘积zeta(N)^(-a(N))的指数。
%A078012的C逆欧拉变换。(1-1/(p^3-p^2)的倒数为p^2(p-1)/(p^3-p^2-1)=1-1/(1+p^2-p^3)。设置1/p=x给出了(1-x)/(1-x-x^3),A078012的g.f.)-R.J.Mathar_,2010年7月26日
%H Vaclav Kotesovec,<a href=“/A065417/b065417.txt”>n表,n=1..5000时的a(n)</a>
%H R.J.Mathar,<a href=“http://arxiv.org/abs/0903.2514“>Hardy-Littlewood常数嵌入所有正整数的无穷乘积</a>,arXiv:0903.2514[math.NT],2009-2011,序列gamma_{2,j}^(a)。
%H G.Niklasch,<a href=“/A001692/A001692.html”>一些数字理论常数:1000-digit值</a>[缓存副本]
%H<a href=“/index/Ar#Artin”>与Artin猜想相关的序列的索引项</a>
%F a(n)~r^n/n,其中r=A092526=1.465571231876768…-Vaclav Kotesovec_,2020年6月13日
%e x ^3+x ^4+x ^5+x ^6+2*x ^7+2*x ^8+3*x ^9+4*x ^10+6*x ^11+7*x ^12+。。。
%p读取(“转换”);
%p A078012:=程序(n)选项记忆;如果n<3,则为op(n+1,[1,0,0]);else procname(n-1)+procname(n-3);结束条件:;结束进程:
%p a078012:=[序列(a078012(n),n=1..80)];欧元(%);
%p#R.J.Mathar,2010年7月26日
%t A078012[n_]:=A078012[n]=如果[n<3,{1,0,0}[[n+1]],A078012][n-1]+A078012-[n-3]];a078012=数组[a078012,m=80];
%t s={};对于[i=1,i<=m,i++,AppendTo[s,i*a078012[[i]]-和[s[[d]]*a07812[[i-d]],{d,i-1}]];表[Sum[If[i,d],MoebiusMu[i/d],0]*s[[d]],{d,1,i}]/i,{i,m}](*Jean-François Alcover_,2016年4月15日,在R.J.Mathar_*之后)
%Y参考A065414。
%K nonn公司
%O 1,7
%A _N.J.A.Sloane,2001年11月15日
%E更多条款来自R.J.Mathar_,2010年7月26日
|