%I#27 2021年7月8日14:22:10
%S 1,1,2,1,3,1,4,1,5,3,2,1,9,2,8,1,7,5,10,3,1,4,1,25,9,6,1,27,4,16,1,
%电话11,7,14,5,21,5,20,3,5,3,2,9,2,8,1,49,25,50,9,15,3,125,27,18,2,
%U 81,8,32,1,13,11,22,7,33,7,28,5,55,21,14,5,63,10,40,3,7,5,10,3,1,4,1,25,9,6,1,27,4,16,1121单位
%N Doudna-tree的初级通缩(分母)。
%C与A005940一样,此不规则表也可以表示为二叉树:
%C 1类
%C类|
%C。。。。。。。。。。。。。。。。。。。1...................
%C 2 1
%C 3……../\。。。。。。。。1 4......../ \........1
%C/\/\/\/\
%C/\/\/\/\
%C/\/\/\/\
%C 5 3 2 1 9 2 8 1
%C 7 5 10 3 1 4 1 25 9 6 1 27 4 16 1
%C等。
%C A194602给出了值为1的节点位置。它们对应于A005940的术语,A005940是报春花的产物(A025487)。前2^k个节点包含A000041(k+1)1。
%C a(n)是即使且仅当A005940(1+n)出现在A277569中时。
%H Antti Karttunen,n表,n=0..8191</a>
%H Antti Karttunen,<a href=“/A337377/A337377.txt”>数据补充:n,a(n)为n=0..65537计算</a>
%H<a href=“/index/Fo#fraction_trees”>分数树的索引条目</a>
%F a(n)=A319627(A005940(1+n))。
%F对于n>=1,a(2*n)=A003961(a(n))*A006519(n+1)。
%F a(2*n+1)=A026741(a(n))。
%t数组[#2/GCD[#1,#2]和@@{#,Apply[Times,Map[If[#1<=2,1,NextPrime[#1、-1]]^#2和@@#&,FactorInteger[#]]}和@函数[p,Times@@Flatten@表[Prime[Count[Flatten[#],0]+1]^#[[1,1]]&@Take[p,-i],{i,Length[p]]@Partition[Split[Join[IntegerDigits[#-1,2],{2}]],2]&[#+1]&,96](*米歇尔·德弗里格,2020年8月27日*)
%o(PARI)
%o A005940(n)={my(p=2,t=1);n--;直到(!n\=2,if((n%2),(t*=p),p=下一素数(p+1));(t);};
%o A064989(n)={my(f);f=因子(n);如果(n>1&&f[1,1]==2),f[1,2]=0);对于(i=1,#f~,f[i,1]=前一素数(f[i、1]-1));因子回退(f)};
%o A319627(n)=(A064989(n)/gcd(n,A064988(n)));
%o A337377(n)=A319627(A005940(1+n));
%Y参见A337376(分子)。
%Y A003961、A005940、A006519、A026741、A064989、A319627用于定义此序列的公式中。
%Y参考A000041、A025487、A277569。
%1的Y位置:A194602。
%Y另请参阅A329886、A346097。
%K non,frac,听着
%0、3
%A _安蒂·卡图内恩(A _Antti Karttunen)、米歇尔·德弗里格(Michael De Vlieger)和彼得·蒙恩(P eter Munn),2020年8月25日
|