A191446-OEIS公司

A191446号

[n*sqrt（5）]的离散度，其中[]=楼层，通过反对偶。

1, 2, 3, 4, 6, 5, 8, 13, 11, 7, 17, 29, 24, 15, 9, 38, 64, 53, 33, 20, 10, 84, 143, 118, 73, 44, 22, 12, 187, 319, 263, 163, 98, 49, 26, 14, 418, 713, 588, 364, 219, 109, 58, 31, 16, 934, 1594, 1314, 813, 489, 243, 129, 69, 35, 18, 2088, 3564, 2938, 1817 (列表;桌子;图表;参考;听;历史;文本;内部格式)

	抵消	`1,2`
	评论	`背景讨论：假设s是正整数的递增序列，s的补码t是无限的，并且t（1）=1。s的离散度是数组D，其第n行是（t（n），s（t（n）），s。每个正整数在D中只出现一次，所以作为一个序列，D是正整数的置换。由u（n）=（包含n的D的行数）给出的序列u是一个分形序列。示例：` `（1）秒=A000040型（素数），D=A114537号，u=A114538号.` `（2）秒=A022343号（无首字母0），D=A035513美元（威瑟夫阵列），u=A003603型.` `（3）秒=A007067号，D=A035506号（Stolarsky阵列），u=A133299号.` `分散的最新示例：A191426号-A191455号.`
	链接	`n=1..59时的n，a（n）表。`
	例子	`西北角：` `1…2……4……8…17` `3...6....13...29..64` `5...11...24...53..118` `7...15...33...73..163` `9…20…44…98…219`
	数学	`（程序生成递增序列f[n]的色散阵列T）` `r=40；r1=12；c=40；c1=12；x=平方[5]；` `f[n_]：=楼层[nx]（第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[i，j]，{i，1，10}，{j，1，10}]]` `(A191446号数组）` `扁平[表[t[k，n-k+1]，{n，1，c1}，{k，1，n}]](A191446号序列）` `（编程依据彼得·J·C·摩西2011年6月1日*）`
	交叉参考	`参见。A114537号,A035513美元,A035506号.` `上下文中的序列：A257797型 A220347型 A099884号A230764型 A276685型 A225040型` `相邻序列：A191443号 A191444号 A191445号A191447号 A191448号 A191449号`
	关键词	`非n,表`
	作者	`克拉克·金伯利2011年6月5日`
	扩展	`更正了名称中的拼写错误并修复了Mathematica程序瓦茨拉夫·科特索维奇，2014年10月24日`
	状态	`已批准`