%我#44 2024年2月17日08:11:19

%S 1,2,4,7,13,23,40,6510616927844370511171760269241516314，

%电话：9526141272094430848455896649596847140840204380293822425859，

%电话：61344688028812583491794256259653623774512374672077731015916314273328199252427893419

%N{1,2，…，N}上非平均子集的数目。

%H Fausto A.C.Cariboni，n表，n=0..80时的A（n）</a>

%H Eric Weisstein的数学世界，<a href=“http://mathworld.wolfram.com/NonaveragingSequence.html“>非平均序列</a>

%H维基百科，<a href=“https://en.wikipedia.org/wiki/Salem-Spencer_set（英语）“>Salem-Spenner套装</a>

%H<a href=“/index/No#non_averaging”>与非平均序列相关的索引条目</a>

%F a（n）=2^n-A018788（n）.-_David Nacin，2012年3月3日

%e包含三项算术级数的s={1,2,3}的唯一子集是s本身，因此a（3）=7。

%t a[n_]：=a[n]=2^n-计数[子集[范围[n]，{3，n}]，{___，a_，___，b_，____，c_，___}/；b-a==c-b]；表[打印[n，“”，a[n]]；a[n]，{n，0，32}]（*Jean-François Alcover_，2019年5月30日*）

%o（Python）

%o#打印出所有此类集合

%o定义非平均集（n）：

%o避免=列表（）

%o表示范围（1，（n+1）//2）内的跳过：

%o对于范围内的启动（1，n+1-2*跳过）：

%o避免.append（set（{start，start+skip，start+2*skip}））

%o s=列表（）

%o表示范围（3）内的i：

%o对于梳中的小集（范围（1，n+1），i）：

%o s.append（小集合）

%o对于范围（3，n+1）内的i：

%o对于梳形中的templuple（范围（1，n+1），i）：

%o tempset=设置（tempuple）

%o状态=真

%o避免：

%o如果avoidset<=tempset：

%o状态=假

%o中断

%o如果状态：

%o s.append（模板集）

%o返回s

%o#统计所有此类集合

%o定义a（n）：

%o返回长度（非平均集（n））#_David Nacin，2012年3月3日

%Y参考A018788。

%Y行合计A334187。

%Y第一个差异给出A334893。

%K nonn公司

%0、2

%A _瑞克·W·魏斯坦_

%E来自John W.Layman的更多条款，2001年11月27日

%E a（29）-a（37）摘自Donovan Johnson_，2010年8月15日

%E a（38）-a（40）摘自_Alois P.Heinz，2011年10月27日