1，2

背景讨论：假设s是一个递增的正整数序列，s的补码t是无穷的，且t（1）=1。s的色散是第n行为（t（n）、s（t（n））、s（s（t（n））、s（s（s（t（n））），…）的阵列D。每个正整数在D中只出现一次，因此，作为一个序列，D是正整数的置换。由u（n）=（包含n的D的行数）给出的序列u是一个分形序列。示例：

（1） s=A000040号（素数），D=A114537号，美国=A114538号.

（2） s=A022343号（无首字母0），D=A035513号（Wythoff阵列），u=A003603.

（3） s=A007067号，D=A035506号（斯托拉斯基阵列）=A133299号.

最近的分散示例：A191426号-A191455号.

n=1的n，a（n）表。。57

西北角：

1。。。。。4。。。。12。。。33。。。88

2。。。。。6。。。。17。。。46。。。122

三。。。。。9。。。。25。。。67。。。177

5。。。。。14。。。38。。。101。。266

7。。。。。19。。。51。。。135。。355

（*程序生成递增序列f[n]*的色散阵列T）

r=40；r1=12；c=40；c1=12；x=黄花菜；

f[n_x]：=楼层[n*x+n+x-1]（*第1列的补足*）

mex[list\：=nestwiler[#1+1&，1，Union[list][[#1]]<=#1&，1，Length[Union[list]]]

rows={NestList[f，1，c]}；

Do[rows=Append[rows，NestList[f，mex[Flatten[rows]]，r]]，{r}]；

t[i，jü]：=行[[i，j]]；

TableForm[表[t[i，j]，{i，1，10}，{j，1，10}]]

(*邮编：A191436数组*）

展平[表格[t[k，n-k+1]，{n，1，c1}，{k，1，n}]](*邮编：A191436序列*）

（*程序由彼得·J·C·摩西2011年6月1日*）

囊性纤维变性。A114537号,A035513号,A035506号.

上下文顺序：A353749飞机 A077015型 A077016号*邮编：A260434 甲243344 A293603

相邻序列：邮编：A191433 邮编：A191434 邮编：A191435*邮编：A191437 邮编：A191438 A191439号

不,表

克拉克·金伯利2011年6月4日

经核准的