%I#10 2014年2月14日00:28:02

%S 1,3,2,6,4,5,10,7,9,8,16,11,14,13,12,24,17,21,20,18,15,35,26,31,30,27，

%电话23,19,51,38,45,44,40,34,28,22,74,55,65,64,58,50,41,33,25106,79,93，

%U 92,84,72,59,48,37,29151113132120103,85,69,54,43,3215161190188171147122,99,78,62,47,36

%N（[N*sqrt（2）+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（Stolarsky阵列），u=A133299。

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

%e西北角：

%e 1…3…6…10…16

%e 2…4…7…11…17

%e 5…9…14…21…31

%e 8…13…20…30…44

%e 12..18..27..40..58

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

%t r=40；r1=12；（*r=要计算的T行数，r1=要显示的行数*）

%t c=40；c1=12；（*c=要计算的列数，c1=要显示的列数*）

%t x=平方米[2]；

%t f[n_]：=楼层[n*x+2]（*f（n）是第1列的补充*）

%t mex[列表]：=

%t NestWhile[#1+1&，1，Union[list][[#1]]<=#1&，1，

%t长度[并集[列表]]]

%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表格[

%t表[t[i，j]，{i，1，10}，{j，1，10}]]（*A191429数组*）

%t压扁[桌子[

%t[k，n-k+1]，{n，1，c1}，{k，1，n}]]（*A191429序列*）

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

%Y参考A114537、A035513、A035506。

%K nonn，表

%O 1,2号机组

%A_Clark Kimberling_，2011年6月3日