%I#8 2013年5月11日08:11:34

%S 1,2,1,2,1,3,2,4,1,3,5,2,4,1,3,5,1,4,5,4,1,6,5,2,7,4,4,1，

%T 6,3,8,5,2,7,4,1,9,6,3,18,5,10,7,4,1,9,6,10,3,5,2,10,4,10,9,6，3,11,8，

%U 5,2,10,7,4,12,1,9,6,3,11,8,5,13,2,10,17,4,12,12,9,6,11,8,13

%N三角阵列（和分形序列）：行N是从分数部分{r}，{2r}，…的递增顺序获得的（1,2，…，N）的排列。。。，{nr}，其中r=-（1+sqrt（3））/2。

%C一般性讨论见A194832。

%e前九行：

%第1页

%e 2 1个

%e 2 1 3

%e 2 4 1 3

%e 5 2 4 1 3

%e 5 2 4 1 6 3

%e 5 2 7 4 1 6 3

%e 8 5 2 7 4 1 6 3

%e 8 5 2 7 4 1 9 6 3

%t r=-（1+Sqrt[3]）/2；

%t t[n_]：=表[分数部分[k*r]，{k，1，n}]；

%t f=展平[表[展平[（位置[t[n]，#1]&）/@

%t排序[t[n]，Less]]，{n，1，20}]]（*A194868*）

%t TableForm[表格[扁平[（位置[t[n]，#1]&）/@

%t排序[t[n]，Less]]，{n，1，15}]]

%t行[n_]：=位置[f，n]；

%t u=表格形式[表格[行[n]，{n，1，20}]]

%t g[n_，k_]：=部件[行[n]，k]；

%t p=压扁[表[g[k，n-k+1]，{n，1，13}，

%t{k，1，n}]]（*A194869*）

%tq[n_]：=位置[p，n]；压扁[表[q[n]，

%t{n，1，80}]]（*A194870*）

%Y参考A194832、A194869、A194870。

%K nonn，表

%O 1,2号机组

%A_Clark Kimberling_，2011年9月4日