OEIS哀悼西蒙斯感谢西蒙斯基金会支持包括OEIS在内的许多科学分支的研究。
登录
OEIS由OEIS基金会的许多慷慨捐赠者.

 

标志
提示
(来自的问候整数序列在线百科全书!)
搜索: a196237-编号:a196237
显示找到的7个结果中的1-7个。 第页1
    排序:相关性|参考文献||被改进的|创建     格式:长的|短的|数据
A196231号 不规则三角形T(n,k),n>=1,1<=k<=上限(n/2),按行读取:T(n、k)是从元素和相等的{1..n}中选择k个不相交(非空)子集的不同方法的数目。 +10
11
1, 3, 7, 1, 15, 3, 31, 7, 1, 63, 17, 3, 127, 43, 8, 1, 255, 108, 22, 3, 511, 273, 63, 9, 1, 1023, 708, 157, 23, 3, 2047, 1867, 502, 67, 10, 1, 4095, 4955, 1562, 203, 26, 3, 8191, 13256, 4688, 693, 83, 11, 1, 16383, 35790, 15533, 2584, 322, 30, 3, 32767, 97340 (列表;图表;参考;;历史;文本;内部格式)
抵消
1,2
链接
阿洛伊斯·海因茨,行n=1..26,扁平
例子
T(8,4)=3:{1,6},{2,5},}3,4},[7}有元素和7,{1,7},[2,6}、{3,5}、[8}有元件和8,而{1,8}、}2,7}、[3]、{4,5}.有元素和9。
三角形开始:
. 1;
. 3;
. 7, 1;
. 15, 3;
. 31, 7, 1;
. 63, 17, 3;
. 127, 43, 8, 1;
. 255, 108, 22, 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*(n+1)/(2*k))/k!:
seq(seq(T(n,k),k=1..ceil(n/2)),n=1..15);
数学
b[l_List,n_,k_]:=b[l,n,k]=模[{i,j},如果[l==数组[0&,k],1,如果[Total[l]>n*(n-1)/2,0,b[l、n-1,k]]+和[If[l[j]]-n<0,0,b[Sort[Table[l[i]]-如果[i==j,n,0],{i,1,k}]],n-1,k]],{j,1,k}]];T[n_,k_]:=和[b[Array[T&,k],n,k]、{T,2*k-1,Floor[n*(n+1)/(2*k)]}]/k!;表[表[T[n,k],{k,1,天花板[n/2]}],{n,1,15}]//平铺(*Jean-François Alcover公司,2013年12月17日,翻译自枫叶*)
交叉参考
关键词
非n,标签
作者
阿洛伊斯·海因茨2011年9月29日
状态
经核准的
A196232号 从元素和相等的{1..n}中选择5个不相交子集的不同方法的数目。 +10
7
1, 3, 10, 26, 83, 322, 1182, 3971, 15662, 69371, 328016, 1460297, 6080910, 26901643, 123926071, 598722099, 2838432721, 13220493552, 63710261040, 312134646974, 1554373859464, 7673048166979, 37597940705361, 186986406578372 (列表;图表;参考;;历史;文本;内部格式)
抵消
9,2
链接
例子
a(10)=3:{1,8},{2,7},}3,6},[4,5},9}有元素和9;{1,9}、{2,8}、}3,7}、[4,6}、[10}有元素和10;{1,10}、{2,9}、}3,8}、[4,7}、5,6}的元素和为11。
数学
b[l_,n_,k_]:=b[l,n,k]=模[{i,j},如果[l==数组[0&,k],1,如果[Total[l]>n*(n-1)/2,0,b[l、n-1,k]]+和[If[l[j]-n<0,0,b[Sort[Table[l[i]]-If[i==j,n,0],{i,1,k}]],n-1,k]],{j,1,k}]];
T[n_,k_]:=和[b[Array[T&,k],n,k]、{T,2*k-1,Floor[n*(n+1)/(2*k)]}]/k!;
a[n_]:=T[n,5];
表[an=a[n];打印[“a(”,n,“)=”,an];安,{n,9,25}](*Jean-François Alcover公司2018年6月8日之后阿洛伊斯·海因茨*)
交叉参考
关键词
非n,更多
作者
阿洛伊斯·海因茨2011年9月29日
扩展
a(26)-a(28)来自阿洛伊斯·海因茨2014年9月25日
a(29)-a(32)来自伯特·多贝莱尔2019年9月5日
状态
经核准的
A196233号 从元素和相等的{1..n}中选择6个不相交子集的不同方法的数目。 +10
7
1, 3, 11, 30, 113, 330, 1284, 5342, 23976, 141836, 604359, 2977297, 15970382, 80990028, 384959038, 1943894348, 10652582085, 53759893907, 292581087499, 1608101020113, 8896321349456, 51394417812545 (列表;图表;参考;;历史;文本;内部格式)
抵消
11,2
链接
例子
a(12)=3:{1,10},{2,9},}3,8},[4,7},5,6},[11}有元素和11;{1,11},{2,10},}3,9},2,8},5,7},12}有元素和12;{1,12},{2,11},}3,10},2,9},5,8},6,7}有元素和13。
数学
b[l_,n_,k_]:=b[l,n,k]=模[{i,j},如果[l==数组[0&,k],1,如果[Total[l]>n*(n-1)/2,0,b[l、n-1,k]]+和[If[l[j]-n<0,0,b[Sort[Table[l[i]]-If[i==j,n,0],{i,1,k}]],n-1,k]],{j,1,k}]];
T[n_,k_]:=和[b[Array[T&,k],n,k]、{T,2*k-1,Floor[n*(n+1)/(2*k)]}]/k!;
a[n_]:=T[n,6];
表[an=a[n];打印[“a(”,n,“)=”,an];an,{n,11,25}](*Jean-François Alcover公司2018年6月8日之后阿洛伊斯·海因茨*)
交叉参考
关键词
非n,更多
作者
阿洛伊斯·海因茨2011年9月29日
扩展
a(26)来自阿洛伊斯·海因茨2014年9月25日
a(27)-a(32)来自伯特·多贝莱尔2019年9月5日
状态
经核准的
A196234号 从元素和相等的{1..n}中选择7个不相交子集的不同方法的数目。 +10
7
1, 3, 12, 33, 114, 403, 1618, 8946, 45917, 189428, 979841, 5497818, 31708309, 178006222, 1091681487, 6207647636, 32636979255, 184162388392, 1069147827024, 6446977283374 (列表;图表;参考;;历史;文本;内部格式)
抵消
13,2
链接
例子
a(14)=3:
{1,12},{2,11},}3,10},2,9},5,8},6,7},13}有元素和13;{1,13},{2,12},}3,11},2,10},5,9},6,8},[14}有元素和14;{1,14}、{2,13}、}3,12}、2,11}、5,10}、6,9}、7,8}有元素和15。
数学
b[l_,n_,k_]:=b[l,n,k]=模[{i,j},如果[l==数组[0&,k],1,如果[Total[l]>n*(n-1)/2,0,b[l、n-1,k]]+和[If[l[j]-n<0,0,b[Sort[Table[l[i]]-If[i==j,n,0],{i,1,k}]],n-1,k]],{j,1,k}]];
T[n_,k_]:=和[b[Array[T&,k],n,k]、{T,2*k-1,Floor[n*(n+1)/(2*k)]}]/k!;
a[n_]:=T[n,7];
表[an=a[n];打印[“a(”,n,“)=”,an];an,{n,13,25}](*Jean-François Alcover公司2018年6月8日之后阿洛伊斯·海因茨*)
交叉参考
关键词
非n,更多
作者
阿洛伊斯·海因茨2011年9月29日
扩展
a(26)-a(28)来自阿洛伊斯·海因茨2014年9月26日
a(29)-a(32)来自伯特·多贝莱尔2019年9月2日
状态
经核准的
A196235型 从元素和相等的{1..n}中选择8个不相交子集的不同方法的数目。 +10
7
1, 3, 13, 37, 134, 466, 1916, 9409, 46006, 255714, 1525052, 9524779, 58944302, 355219704, 2315784192, 14568780212, 97993669291, 619342933593 (列表;图表;参考;;历史;文本;内部格式)
抵消
15,2
链接
例子
a(16)=3:{1,14},{2,13},}3,12},2,11},5,10},6,9},7,8},[15}有元素和15;{1,15}、{2,14}、}3,13}、2,12}、5,11}、6,10}、7,9}和{16}有元素和16;{1,16}、{2,15}、}3,14}、2,13}、5,12}、6,11}、7,10}、8,9}的元素和为17。
数学
b[l_,n_,k_]:=b[l,n,k]=模[{i,j},如果[l==数组[0&,k],1,如果[Total[l]>n*(n-1)/2,0,b[l、n-1,k]]+和[If[l[j]-n<0,0,b[Sort[Table[l[i]]-If[i==j,n,0],{i,1,k}]],n-1,k]],{j,1,k}]];
T[n_,k_]:=和[b[Array[T&,k],n,k]、{T,2*k-1,Floor[n*(n+1)/(2*k)]}]/k!;
a[n_]:=T[n,8];
表[an=a[n];打印[“a(”,n,“)=”,an];安,{n,15,25}](*Jean-François Alcover公司,2018年6月8日,之后阿洛伊斯·海因茨*)
交叉参考
关键词
非n,更多
作者
阿洛伊斯·海因茨2011年9月29日
扩展
a(27)-a(28)来自阿洛伊斯·海因茨2014年11月5日
a(29)-a(32)来自伯特·多贝莱尔2019年9月1日
状态
经核准的
A196236号 从元素和相等的{1..n}中选择9个不相交子集的不同方法的数目。 +10
7
1, 3, 14, 40, 156, 554, 2369, 11841, 60654, 498320, 2987689, 15177178, 96041346, 656938806, 4640699138, 31263742313, 221075005249 (列表;图表;参考;;历史;文本;内部格式)
抵消
17,2
链接
例子
a(18)=3:{1,16},{2,15},}3,14},2,13},5,12},6,11},7,10},9},17}有元素和17;{1,17},{2,16},}3,15},2,14},5,13},6,12},7,11},8,10},18}有元素和18;{1,18},{2,17},}3,16},2,15},5,14},6,13},7,12},8,11},9,10}有元素和19。
数学
b[l_,n_,k_]:=b[l,n,k]=模[{i,j},如果[l==数组[0&,k],1,如果[Total[l]>n*(n-1)/2,0,b[l、n-1,k]]+和[If[l[j]-n<0,0,b[Sort[Table[l[i]]-If[i==j,n,0],{i,1,k}]],n-1,k]],{j,1,k}]];
T[n_,k_]:=和[b[Array[T&,k],n,k]、{T,2*k-1,Floor[n*(n+1)/(2*k)]}]/k!;
a[n_]:=T[n,9];
表[an=a[n];打印[“a(”,n,“)=”,an];安,{n,17,25}](*Jean-François Alcover公司,2018年6月8日,之后阿洛伊斯·海因茨*)
交叉参考
关键词
非n,更多
作者
阿洛伊斯·海因茨2011年9月29日
扩展
a(29)来自阿洛伊斯·海因茨2014年11月5日
a(30)-a(33)来自伯特·多贝莱尔2019年9月2日
状态
经核准的
A196534号 从元素和相等的{1..n}中选择不相交非空子集的不同方法的数目。 +10
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日
状态
经核准的
第页1

搜索在0.006秒内完成

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

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

上次修改时间:美国东部夏令时2024年6月13日11:39。包含373387个序列。(在oeis4上运行。)