A140516-OEIS公司

A140516号

有关定义，请参见注释行。

1, 3, 6, 8, 9, 13, 16, 17, 19, 20, 21, 26, 31, 32, 36, 42, 43, 45, 49, 50, 52, 53, 54, 58, 62, 65, 66, 67, 71, 78, 80, 82, 85, 87, 89, 90, 97, 98, 103, 106, 108, 112, 113, 114, 116, 120, 122, 123, 124, 128, 129, 134, 135, 139, 141, 143, 145, 147, 148, 153, 155, 157, 161 (列表；图表；参考；听；历史；文本；内部格式)

	抵消	`1,2`
	评论	`受范德华登定理的启发，正整数被分为两个不相交的序列A和B，因此它们遵循以下规则：` `规则1：对于给定的n，设a（n）和B（n）是项小于或等于n的a和B的子集。` `规则2：从1开始构造序列，除非违反规则1，否则总是倾向于在B中添加项。如果无法将术语添加到B中，请将其添加到A中。` `这里列出的序列是A序列。`
	链接	`n=1..63时的n，a（n）表。`
	例子	`A得1，因为B还不能有一个长度为1的AS。` `B得到2，因为我们喜欢加B，而A已经有了长度为1的AS。` `A得3，因为B还不能形成长度为2的AS。` `B得到4，因为A现在有一个长度为2的AS。` `B得5，因为2,4,5不包含长度为3的AS。` `A得到6，因为2、4、5、6将包含长度为3的AS。`
	数学	`CheckMaxASFromEnd[A_，x_，m_]：=模块[{i，n=长度[A]，d，k}，如果[m>n+1，返回[False]；，]；如果[And[m<=n+1，n<2]，则返回[True]；，]；对于[i=n，i>0，i--，d=x-A[[i]]；bot=x-（m-1）d；如果[bot<=0，则中断[]；，]；对于[k=x-2d，k>=x-（m-1）*d，k-=d，如果[MemberQ[A，k]，如果[k==x-，中断[]；]；]，]；错误]；` `ASRace[n_]：=模块[{i，m=0，A={}，B={}}，对于[i=1，i<=n，i++，If[CheckMaxASFromEnd[B，i，m+1]，If[CheckMaxASFromEnd[A，i，m+1]，m++，]；A=追加[A，i]，B=附加[B，i]；]；]；{A，B}]；`
	交叉参考	`上下文中的序列：A189637号 A182338号 A267415型A310140型 A231006型 A231011型` `相邻序列：A140513号 A140514号 A140515号A140517号 A140518号 A140519号`
	关键词	`非n`
	作者	`里德·凯利2008年7月1日`
	状态	`经核准的`