%I#22 2014年3月24日02:09:23
%S 0,1,2,2,2,2,3,2,3,3,4,3,2,3,3,1,3,2,4,3,12,3,4,1,4,4,5,4,4,
%T(T)3,4,5,4,4,4(T)5,4,1,4,5(T)4,4,1(T)6,5,5,4(D)4,4,
%U 5,4,5,6,5,4,1,4,6,6,4,4,5,5,5,5,1,5,5,4,5,15,6
%N由(1+sqrt(5))/2生成的Lambda单词。
%C Lambda单词是一个符号序列,它编码序列i+j*t中的差异,其中t是无理的,1<t<2。这是Fibonacci-Lambda单词,t=(1+sqrt(5))/2。该单词是通过将数组形式A216448(0,0)、(1,0)、、(0,1)、(2,0)和(1,1)的转置后的整数的位置号按顺序连接起来,然后对以(1,0,(-1,1)->1,(2,-1)->2,(-1.1)->1开头的向量进行编码来实现的。
%C Lambda单词是无限字母表上的右无限丰富单词。
%H N.Carey,<a href=“http://dx.doi.org/10.1007/978-3642-21590-2_4“>关于一类局部对称序列,右无限词Lambda Theta</a>,摘自《计算机科学》第6726卷《音乐中的数学和计算》,Springer,(2011),42-55。
%H N.Carey,<a href=“https://cs.uwaterloo.ca/journals/JIS/VOL16/Carey/carey6.html“>Lambda单词:在无限字母表上定义的一类丰富单词,《整数序列杂志》,第16卷(2013年),第13.3.4条。
%t t=黄金比率;
%t端=100;
%t x=桌子[天花板[n*1/t],{n,0,end}];
%t y=桌子[天花板[n*t],{n,0,end}];
%t tot[p_,q_]:=总数[Take[x,p+1]]+(p*q)+总数[Take[y,q+1]]
%t行[r_]:=表[tot[n,r],{n,0,end-1}]
%t g=网格[表格[行[n],{n,0,整数部分[(end-1)/t]}];
%t pos[n_]:=反向[位置[g,n][[1,范围[2,3]]-1]
%t d[n]:=(op[m]:=位置[m+1]-位置[m];
%t绝对值[Total[ContinuedFraction[op[n][[1]]/op[n][2]]]])
%t l=前缀[表[d[n],{n,1,249}],0]
%t(*诺曼·凯里,2012年9月15日*)
%Y参见A216448、A216764。
%K nonn公司
%0、3
%2012年9月15日,诺曼·凯瑞
|