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是正整数的置换。由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号.

克拉克·金伯林，分形序列与散布，Ars Combinatoria 45（1997）157-168。

n=1..78的n，a（n）表。

穆罕默德·K·阿扎良，问题123《密苏里数学科学杂志》，第10卷，第3期，1998年秋季，第176页。解决方案发表于2000年冬季第12卷第1期，第61-62页。

克拉克·金伯利，分散《美国数学学会论文集》，117（1993）313-321。

西北角：

1…4…9…17…30

2…6…12…22…38

3…7…14…25…43

5…11…20…35…59

8…15…27…46…77

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

r=40；r1=12；（*r=#T行，r1=#要显示的行*）

c=40；c1=12；（*c=#T的列，c1=#要显示的列*）

x=黄花菜；f[n_u]：=楼层[n*x+3]

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}]]

(*A191426号数组*）

展平[表格[t[k，n-k+1]，{n，1，c1}，{k，1，n}]](*A191426号序列*）

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

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

上下文顺序：A285090号 A114577号 A285089号*邮编：A182702 A282600个 A326845型

相邻序列：A191423号 A191424号 A191425*邮编：A191427 A191428 A191429号

不,表

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

经核准的