A181853-OEIS公司

A181853号

按行读取的三角形：T（n，k）=c（n，k）}lcm（c）中的Sum_{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, 1, 36, 456, 2716, 8293, 13268, 11338, 4908, 840, 1, 45, 726, 5578, 22207, 47351, 57598, 40602, 15564, 2520

(列表;桌子;图表;参考;听;历史;文本;内部格式)

抵消

0,5

C（n，k）也称为n与大小k的组合（参见A181842号).

主对角线给出：A003418号。下对角线给出：A094308号列k=1给出：A000217号. -阿洛伊斯·海因茨2013年7月29日

链接

阿洛伊斯·海因茨，行n=0..46，扁平

例子

[0] 1

[1] 1 1

[2] 1 3 2

[3] 1 6 11 6

[4] 1 10 31 34 12

[5] 1 15 81 189 182 60

[6] 1 21 141 393 494 282 60

MAPLE公司

使用（combstruct）：

a181853_row:=进程（n）局部k，L，L，R，comb；

R：=空；

对于k从0到n do

L:=0；

梳：=iterstructs（组合（n），大小=k）：

未完成时（梳子）做

l：=nextstruct（梳）；

L：=L+ilcm（op（L））；

od；

R：=R，L；

od；

R端：

#第二个Maple项目：

b： =proc（n，k）选项记忆；`if`（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（seq（T（n，k），k=0..n），n=0..10）； #阿洛伊斯·海因茨2013年7月29日

#第三个Maple项目：

b： =proc（n，m）选项记忆；展开（`if`（n=0，m，

b（n-1，ilcm（m，n））*x+b（n-1，m））

结束时间：

T： =n->（p->seq（系数（p，x，i），i=0..n））（b（n，1））：

seq（T（n），n=0..10）； #阿洛伊斯·海因茨2023年9月5日

数学

t[_，0]=1；t[n_，k_]：=和[LCM@@c，{c，子集[Range[n]，{k}]}]；表[t[n，k]，{n，0，8}，{k，0，n}]//展平(*Jean-François Alcover公司2013年7月29日*）

黄体脂酮素

（圣人）#（以阿洛伊斯·海因茨（Alois P.Heinz）命名）

@缓存函数

定义b（n，k）：

如果k==0：返回[1]

w=b（n-1，k），如果k<n else[0]

返回w+[b（n-1，k-1）中c的lcm（c，n）]

def T（n，k）：返回加法（b（n，k））

压扁（[[T（n，k）代表k in（0..n）]代表n in（0..10）]）

#彼得·卢什尼2013年7月29日

交叉参考

行总和给出A226037型.

囊性纤维变性。A065567号,A096179号,A181854号.

上下文中的序列：A156367号 A193593号 308万616*A008276号 A094638号 A196844号

相邻序列：A181850号 A181851号 A181852号*A181854号 A181855号 A181856号

关键词

非n,表

作者

彼得·卢什尼2010年12月6日

状态

经核准的