A093970-OEIS公司

A093970号

{1..n}的子集A的数目，使得A中A，b，c，d的A+b+c=d没有解。

1, 2, 4, 6, 11, 21, 31, 55, 99, 145, 252, 430, 620, 1042, 1786, 2597, 4304, 7241, 10374, 17098, 28967, 41444, 68017, 113746, 162204, 268412, 449318, 640341, 1053604, 1764648, 2524852, 4154138, 6968215, 9935216, 16371249, 27594872, 39353636, 64914388, 109205201 (列表;图表;参考;听;历史;文本;内部格式)

	偏移	`0,2`
	评论	`在和集表示法中，序列给出了{1..n}的子集A的数量，使得A和3A的交集为空。使用Mathematica程序，可以打印所有此类子集。`
	链接	`福斯托·A·C·卡里博尼，n=0..62时的n、a（n）表` `埃里克·魏斯坦的数学世界，求和自由集`
	数学	nn=20；SumFree3Q[s_List]：=模块[{sumFree，i，j，k}，如果[Length[s]<2，则为True，如果[3s[[1]]>s[[-1]]，则为True，sumFree=True；i=1；而[sumFree&&i<=长度[s]，j=i；而[sumFree&&j<=长度[s]，k=j；当[sumFree&&k<=长度[s]时，sumFree=！成员Q[s，s[[i]]+s[[j]]+s[[k]]]；k++]；j++]；i++]；sumFree]]]；ss={{}}；表[如果[n>0，ssNew={}；Do[t=Append[ss[i]]，n]；如果[SumFree3Q[t]，AppendTo[ssNew，t]]，{i，Length[ss]}]；ss=连接[ss，ssNew]]；长度[ss]，{n，0，nn}]
	交叉参考	`囊性纤维变性。A007865号（1..n的无和子集的数量）。` `上下文中的序列：A068330号 A017993年 A049870号A333098型 A107428号 A086379号` `相邻序列：A093967号 A093968号 A093969号A093971号 A093972号 A093973号`
	关键词	`非n`
	作者	`T.D.诺伊2004年4月20日`
	扩展	`a（21）-a（38）来自福斯托A.C.卡里博尼2020年9月30日`
	状态	`经核准的`