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

 

徽标
提示
（来自的问候整数序列在线百科全书!)
A181853号 按行读取的三角形：T（n，k）=c（n，k）}lcm（c）中的Sum_{c，其中c（n、k）是{1,2，…，n}的所有k-子集的集合。 5
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）选项记忆`如果`（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，
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日*）
黄体脂酮素
（Sage）#（源自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号 A308616型*A008276号 A094638号 A196844号
相邻序列：A181850号 A181851号 A181852号*A181854号 118155英镑 A181856号
关键词
非n,表
作者
彼得·卢什尼2010年12月6日
状态
经核准的

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

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

上次修改时间：2024年4月23日05:56 EDT。包含371906个序列。（在oeis4上运行。）