%I#13 2017年12月9日19:37:48

%S 1,4,2,8,5,3,14,10,7,6,22,17,12,11,9,34,27,19,18,15,13,51,41,29,28,24，

%电话：21,16,75,60,44,42,36,32,25,20109,87,65,62,53,48,31,23157126,94，

%U 90,77,70,56,46,35,26225181135130111101,82,68,52,39号

%N通过反对偶剂分散（3+层（N*sqrt（2）））。

%背景讨论：假设s是正整数的递增序列，s的补码t是无限的，并且t（1）=1。s的离散度是数组D，其第n行是（t（n），s（t（n）），s。每个正整数在D中只出现一次，所以作为一个序列，D是正整数的置换。由u（n）=（包含n的D的行数）给出的序列u是一个分形序列。示例：

%C（1）s=A000040（素数），D=A114537，u=A114538。

%C（2）s=A022343（无初始0），D=A035513（Wythoff阵列），u=A003603。

%C（3）s=A007067，D=A035506（斯托拉尔斯基阵列），u=A133299。

%C分散体的最新示例：A191426-A191455和A191536-A191545。

%H G.C.Greubel，n表，前50行a（n），扁平</a>

%e西北角：

%e 1…4…8…14…22

%e 2…5…10…17…27

%e 3…7…12…19…29

%e 6…11…18…28…42

%e 9…15…24…36…54

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

%t r=40；r1=12；c=40；c1=12；f[n_]：=3+楼层[n*Sqrt[2]（*第1列的补码*）

%t mex[list_]：=NestWhile[#1+1&，1，并集[list][#1]]<=#1&，1，长度[并集[list]]]

%t行＝{NestList[f，1，c]}；

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

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

%t表格形式[表格[t[i，j]，{i，1，r1}，{j，1，c1}]]

%t（*A191536阵列*）

%t压扁[表[t[k，n-k+1]，{n，1，c1}，{k，1，n}]]（*A191536序列*）

%t（*项目作者：P eter J.C.Moses，2011年6月1日*）

%Y参考A114537、A035513、A035506。

%K nonn，表

%O 1,2号机组

%A_Clark Kimberling_，2011年6月6日