%I#11 2021年2月11日13:44:33
%S 1,4,3,7,3,6,3,10,3,6,3,6,3,9,3,6,3,3,3,6,3,3,12,3,6,3,9,3,6,3,3,3,6,3,16,
%温度3,6,3,9,3,6,12,3,63,93,3,5,3,3,12,9,36,3,19,
%U 3.6,3,9,3,6,3,12,3,6,19,3,16,3,3,4,3,5,6,9,6,2,3,3,12,6,6,5,3,6、3,3'、3,6'、3,18,3,8,6,3、9,6,12,3,3、6,6
%N如果k<=N<=2k,则数三角形A(N,k)的逆矩阵的行和=1/(3n+1),否则为0。
%C数字三角形A127751的行和。
%C a(n)mod 2是第一个Feigenbaum符号序列A035263(猜想)。
%C这个猜想至少在2048个第一项之前是正确的。(但请注意不同的索引,此处以0为基础。)-Antti Karttune_,2018年9月29日
%H Antti Karttunen,n的表,n=0..2048的a(n)</a>
%tA[n_,k_]:=如果[k<=n<=2k,1/(3n+1),0];
%t总计/@Inverse[Array[A,{128,128},{0,0}]](*_Jean-François Alcover_,2021年2月11日*)
%o(PARI)
%o up_to=128;
%o A127752aux(n,k)=如果(k<=n,如果(n<=(2*k),1/((3*n)+1),0),0);
%o A127752list(up_to)={my(m1=矩阵(up_to,up_to,n,k,A127752aux(n-1,k-1)),m2=矩阵解算(m1,matid(up_tto)),v=向量(up_to-));对于(n=1,up_tto,v[n]=向量(m2[n,]);(v);};
%o v127752=A127752列表(1+up_to);
%o A127752(n)=v127752[1+n];\\_Antti Karttune_,2018年9月29日
%Y参见A127750、A127751。
%K nonn公司
%0、2
%A Paul Barry,2007年1月28日
%E 2018年9月29日_Antti Karttunen的更多条款
|