A126714-OEIS公司

126714英镑

双Wythoff阵列读取反对偶数据。

1, 2, 4, 3, 6, 7, 5, 10, 11, 9, 8, 16, 18, 14, 12, 13, 26, 29, 23, 19, 15, 21, 42, 47, 37, 31, 24, 17, 34, 68, 76, 60, 50, 39, 27, 20, 55, 110, 123, 97, 81, 63, 44, 32, 22, 89, 178, 199, 157, 131, 102, 71, 52, 35, 25, 144, 288, 322, 254, 212, 165, 115, 84, 57, 40, 28 (列表;桌子;图表;参考;听;历史;文本;内部格式)

	抵消	`1,2`
	评论	`双Wythoff阵列是由w（n）=2+floor（n*x）给出的序列w的离散度，其中x=（黄金比率），因此w=2+A000201号（n） ●●●●。有关分散度的讨论，请参见A191426号.-Clark Kimberling，2011年6月3日`
	参考文献	`克拉克·金伯利（Clark Kimberling），《斯托拉斯基的Interspessions》（Stolarsky Interspessions），《阿尔斯·科林巴托利亚》（Ars Combinatoria）39（1995）129-138。有关双Wythoff阵列和其他双阵列，请参见第135页。[发件人克拉克·金伯利2009年10月29日]`
	链接	`n=1..66时的n、a（n）表。` `P.Hegarty、U.Larsson、，具有规定差集的自然数的置换，电气。J.组合编号。理论6（2006）#A03。`
	例子	`阵列启动` `1 2 3 5 8 13 21 34 55 89 144` `4 6 10 16 26 42 68 110 178 288 466` `7 11 18 29 47 76 123 199 322 521 843` `9 14 23 37 60 97 157 254 411 665 1076` `12 19 31 50 81 131 212 343 555 898 1453` `15 24 39 63 102 165 267 432 699 1131 1830` `17 27 44 71 115 186 301 487 788 1275 2063` `20 32 52 84 136 220 356 576 932 1508 2440` `22 35 57 92 149 241 390 631 1021 1652 2673` `25 40 65 105 170 275 445 720 1165 1885 3050` `28 45 73 118 191 309 500 809 1309 2118 3427`
	MAPLE公司	Tn1:=proc（T，nmax，row）局部n，r，c，fnd；n：=1；当为true时，执行fnd：=false；对于r从1到行do对于c从1到nmax do如果T[r，c]=n那么fnd:=true；fi；od；如果T[r，nmax]<n，则返回（-1）；fi；od；如果fnd，则n：=n+1；否则返回（n）；fi；od；结束；Tn2：=proc（T，nmax，row，ai1）局部n，r，c，fnd；对于r从1到行do，对于c从1到nmax do，如果T[r，c]+1=ai1，则返回（T[r、c+1]+1）；fi；od；od；返回（-1）；结束；T:=proc（nmax）局部a，col，row；a：=阵列（1..nmax，1..nmax）；对于从1到nmax的列，执行a[1，col]：=组合[fibonacci]（col+1）；od；对于从2到nmax的行，执行a[row，1]：=Tn1（a，nmax，row-1）；a[行，2]：=Tn2（a，nmax，row-1，a[列，1]）；对于从3到nmax的col，执行a[row，col]：=a[rove，col-2]+a[row，col-1]；od；od；返回（a）；结束；n最大值：=12；a:=T（nmax）；对于从1到nmax的d，对从1到d的行执行打印f（“%d，”，a[row，d-row+1]）；od；od；
	数学	`（程序生成递增序列f[n]的补码的分散数组T）` `r=40；r1=12；（r=T的行数，r1=要显示的行数）` `c=40；c1=12；（c=#列T，c1=#列显示）` `x=黄金比率；f[n_]：=楼层[nx+2]` `（f（n）是第1列的补充）` `mex[list_]：=NestWhile[#1+1&，1，并集[list][[#1]]<=#1&，1、长度[Union[list]]]` `行={NestList[f，1，c]}；` `Do[rows=Append[rows，NestList[f，mex[Flatten[rows]]，r]]，{r}]；` `t[i_，j_]：=行[[i，j]]；（数组T）` `表格形式[表格[t[i，j]，{i，1，10}，{j，1，10}]]` `（双Wythoff阵列，126714英镑)` `扁平[表[t[k，n-k+1]，{n，1，c1}，{k，1，n}]]（数组作为序列）` `（编程人彼得·J·C·摩西2011年6月1日；由添加到此处克拉克·金伯利2011年6月3日*）`
	交叉参考	`前三行与相同A035506号。第一列是A007066号。第一行是A000045号.第二排基本上是A006355号.第三排基本上是A000032号第四排基本上A000285号基本上是第5行A013655号或A001060型基本上是第6排A022086号或A097135号第7行A022120型基本上是第8行A022087号基本上是第9行A022130型基本上是第10行A022088级基本上是第11排A022095型基本上是第12排A022089号等。` `囊性纤维变性。A035513美元（威瑟夫阵列）。` `上下文中的序列：A353658型 A083044号 31995年A035506号 A246368号 A316963型` `相邻序列：A126711号 A126712号 A126713号A126715号 A126716号 A126717号`
	关键词	`容易的,非n,表`
	作者	`R.J.马塔尔2007年2月12日`
	状态	`经核准的`