%I#15 2023年2月26日08:18:50

%S 0,1,2，-1,3，-2,0,4，-3，-1,1，-4,5，-5，-2,0，-6,2，-7，-3,6，-8，-4，-1，-9,1，

%T-10，-5,3，-11，-6，-2，-12,7，-13，-7，-3，-14,0，-15，-8,2，-16，-9，-4，-17,4，

%U-18、-10、-5、-19、-1、-20、-11,8、-21、-12、-6、-22、-2、-23、-13,1、-24、-14、-7、-25,3、-26、-15、-8、-27、-3、-28、-16,5、-29、-17、-9、-30

%N包含N的Wythoff数组的对角线数。

%每个整数都出现在这个序列中（无限多次）。

%C将数组表示为{g（i，j）：i>=1，j>=1}。那么对于m>=0，（对角线#m）是序列（g（i，i+m）），i>=1；对于m<0，（对角线#m）是序列（g（i+m，i）），i>=1。

%e威瑟夫阵列的主对角线为（1,7,16，…）；这是对角线#0，因此a（1）=0，a（7）=0、a（16）=0。

%tf[n_]：=f[n]=斐波那契[n]；

%t g[i_，j_]：=f[j+1]*楼层[i*黄金比率]+（i-1）f[j]；

%t t=表[g[i，j]，{i，500}，{j，100}]；

%t图[#[2]]-#[1]]&，最大[Reap[NestWhileList[#+1&，1，Length[Sow[FirstPosition[t，#]]>1&]][2]][1]]]（*_Peter J.C.Moses_，2023年2月9日*）

%Y参考A035513、A114327、A191361和A191362。

%K符号

%氧1,3

%A_Clark Kimberling_，2011年5月31日

%E Mathematica程序被_Clark Kimberling_取代，2023年2月10日。