登录
这个网站是通过捐款来支持的。OEIS基金会.

 

标志


提示
问候整数序列的在线百科全书!)
A181853 按行读取的三角形:t(n,k)= c(n,k)}(c)中的SuMu{{C(c)),其中c(n,k)是{1,2,…,n}的所有k子集的集合。
1, 1, 1,1, 3, 2,1, 6, 11,6, 1, 10,31, 34, 12,1, 15, 81,189, 182, 60,1, 21, 141,393, 494, 282,60, 1, 28,288, 1380, 3245,3740, 2034, 420,3740, 2034, 420,γ,γ,γ,γ,γ 列表图表参考文献历史文本内部格式
抵消

0,5

评论

C(n,k)也称为n与大小k的组合(参见A181842

主对角线给出:A000 318. 下对角线给出:A094308. 列k=1给出:A000 0217. -阿洛伊斯·P·海因茨7月29日2013

链接

Alois P. Heinz行n=0…25,扁平化

例子

〔0〕1

〔1〕1 1

〔2〕1 3 3

〔3〕1、6、11、6

〔4〕1 10 10 31 34 12

〔5〕1、15、81、189、182、60

〔6〕1、21、141、393、494、282、60

枫树

用(CopbStult):

A181853Lo::Pro(n)局部K,L,L,R,梳;

r=空;

对于k从0到n

L:=0;

Cys: =迭代结构(组合(n),大小=k):

未完成(梳子)

L:= NEXSTREST(梳子);

L:L+ILCM(OP(L));

OD;

R=R,L;

OD;

R端:

第二枫叶计划:

B=:PROC(n,k)选项记住;“如果”(k=0,〔1〕,

[If’(k<n,b(n-1,k),[])[],SEQ(ILCM(C,N),C=B(N-1,K-1))]

结束:

t:=(n,k)->加法(c,c= b(n,k)):

SEQ(SET(t(n,k),k=0…n),n=0…10);阿洛伊斯·P·海因茨7月29日2013

Mathematica

t[[],0 ]=1;t[n],k]:=和[LCM@ @ c,{C,子集[范围[n],{k}[}] ];表[t[n,k],{n,0, 8 },{k,0,n} / /平坦(*)(*)让弗兰7月29日2013*)

黄体脂酮素

(圣人)亚(Alois P. Heinz之后)

@ CaseDead函数

DEF B(n,k):

如果k= 0:返回[1 ]

W=B(n-1,k),如果k

B(N-1,K-1)中C的返回W+[LCM(C,N)]

DEF(n,k):返回加法(b(n,k))

对[n(n,k)k(0…n)]进行平坦化(n(0…10))

γ彼得卢斯尼7月29日2013

交叉裁判

行和给出A226037. 囊性纤维变性。A096179A181854.

语境中的顺序:A144250 A156367 A19353*A000 827 A094638 A196844

相邻序列:A181850 A181851 A181852*A181854 A181855 A181856

关键词

诺恩塔布

作者

彼得卢斯尼,十二月06日2010

地位

经核准的

查找γ欢迎γ维基γ注册γ音乐γ情节2γ演示γ指数γ浏览γ更多γ网络摄像机
贡献新的SEQ。或评论γ格式γ样式表γ变换γ超级导引头γ最近
OEIS社区通过保持OEIS基金会

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

最后修改9月15日04:28 EDT 2019。包含327062个序列。(在OEIS4上运行)