登录
OEIS由OEIS基金会的许多慷慨捐赠者

 

标志
提示
(来自的问候整数序列在线百科全书!)
A196534号 从元素和相等的{1..n}中选择不相交非空子集的不同方法的数目。 1
1, 3, 8, 18, 39, 83, 179, 388, 857, 1914, 4494, 10844, 26923, 70645, 192297, 538646, 1579602, 4793718, 15010425, 48941642, 164010913, 566065123, 2025354291, 7450901462, 27986863322, 107940691328 (列表;图表;参考;;历史;文本;内部格式)
偏移
1,2
评论
A000225号(n) <=a(n)<=A058692号(n+1)。
链接
例子
a(3)=8:{{1}}、{{2}},{{3}}和{{1,2}。元素总和分别为1、2、3、3、4、5、6和3。
MAPLE公司
b: =proc(l,n,k)选项记忆;局部i,j`if`(l=[0$k],1,`if`(add(j,j=l)>n*(n-1)/2,0,b(l,n-1,k))+add(`if`*(n+1)/(2*k))/k!,k=1..n):序列(a(n),n=1..15);
数学
b[l_,n_,k_]:=b[l,n,k]=如果[l==数组[0&,k],1,如果[Total[l]>n*(n-1)/2,0,b[l、n-1,k]]+总和[If[l[j]-n<0,0,b[排序[表[l[i]]-如果[i==j,n,0],{i,1,k}]],n-1,k]],{j,1,k}]];
a[n_]:=总和[Sum[b[Array[t&,k],n,k]、{t,2*k-1,Floor[n*(n+1)/(2*k)]}]/k!,{k,1,天花板[n/2]}];
表[打印[n,“”,a[n]];a[n],{n,1,25}](*Jean-François Alcover公司2022年6月1日之后阿洛伊斯·海因茨*)
交叉参考
关键词
非n,更多
作者
阿洛伊斯·海因茨2011年10月3日
扩展
a(26)来自阿洛伊斯·海因茨2014年10月20日
状态
经核准的

查找|欢迎光临|维基|注册|音乐|地块2|演示|索引|浏览|更多|网络摄像头
贡献新序列。或评论|格式|样式表|变换|超级搜索|最近
OEIS社区|维护人OEIS基金会。

许可协议、使用条款、隐私政策。

上次修改时间:美国东部夏令时2024年5月10日05:09。包含372356个序列。(在oeis4上运行。)