A248513-组织环境信息系统

A248513型

反对偶矩形阵列：色散2011年11月15日（“可恶的数字”）。

1, 2, 4, 3, 8, 6, 5, 15, 12, 7, 9, 29, 23, 14, 10, 17, 57, 45, 27, 20, 11, 33, 113, 89, 53, 39, 22, 13, 65, 225, 177, 105, 77, 43, 26, 16, 129, 449, 353, 209, 153, 85, 51, 32, 18, 257, 897, 705, 417, 305, 169, 101, 63, 36, 19, 513, 1793, 1409, 833, 609, 337 (列表;桌子;图表;参考;听;历史;文本;内部格式)

	抵消	`1,2`
	评论	`背景讨论：假设s是正整数的递增序列，s的补码t是无限的，并且t（1）=1。s的离散度是数组D，其第n行是（t（n），s（t（n）），s。每个正整数在D中只出现一次，所以作为一个序列，D是正整数的置换。由u（n）=（包含n的D行的数目）给出的序列u是一个分形序列，如248514加元.` `第1列的第n项为A001969号（n） +1，其中A001969号是“邪恶的数字”。`
	参考文献	`克拉克·金伯利（Clark Kimberling），《分形序列和间隔》（Fractal sequences and interspersions），《阿尔斯组合学》（Ars Combinatoria）45（1997）157-168。`
	链接	`克拉克·金伯利，反对角线n=1..60，平坦` `克拉克·金伯利，间隙和分散《美国数学学会学报》，117（1993）313-321。`
	例子	`西北角：` `1 ... 2 ... 三。。。5 ... 9 .... 17 ... 33` `4 ... 8 ... 15 .. 29 .. 57 ... 113 .. 225` `6 ... 12 .. 23 .. 45 .. 89 ... 177 .. 353` `7 ... 14 .. 27 .. 53 .. 105 .. 209 .. 417` `10 .. 20 .. 39 .. 77。。153 .. 305 .. 609`
	数学	`r=40；r1=10；（r=T的行数，r1=要显示的行数）；` `c=40；c1=12；（c=#列T，c1=#列显示）；` `x=黄金比率；` `s[n_]：=s[n]=如果[n<1，0，2 n-Mod[Total[Integer Digits[n-1，2]，2]]；` `mex[list_]：=NestWhile[#1+1&，1，并集[list][[#1]]<=#1&，1、长度[Union[list]]]；行={NestList[s，1，c]}；` `Do[rows=Append[rows，NestList[s，mex[Flatten[rows]]，r]]，{r}]；` `t[i_，j_]：=行[[i，j]]；表格形式[表格[t[i，j]，{i，1，r1}，{j，1，c1}]]` `u=压扁[表[t[k，n-k+1]，{n，1，c1}，{k，1，n}]](A248513型)` `行[i_]：=行[i]=表[t[i，j]，{j，1，c}]` `f[n_]：=选择[Range[r]，MemberQ[row[#]，n]&]` `v=压扁[表[f[n]，{n，1200}]](A248514型)`
	交叉参考	`囊性纤维变性。A248514型.` `上下文中的序列：A232563型 A048672号 A277517型A266414型 A245613型 A260431型` `相邻序列：A248510号 A248511型 A248512型248514加元 A248515型 A248516型`
	关键词	`非n，表，容易的`
	作者	`克拉克·金伯利2014年10月8日`
	状态	`经核准的`