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

 

标志
提示
(来自的问候整数序列在线百科全书!)
A256067型 不规则表T(n,k):n的分区数,其中所有部分的最小公共倍数等于k。 10
1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 2, 1, 1, 1, 1, 1, 3, 2, 2, 1, 2, 1, 3, 2, 2, 1, 3, 1, 0, 0, 1, 0, 1, 1, 4, 2, 4, 1, 5, 1, 1, 0, 1, 0, 1, 0, 0, 1, 1, 4, 3, 4, 1, 7, 1, 1, 1, 2, 0, 2, 0, 1, 1, 0, 0, 0, 0, 1, 1, 5, 3, 6, 2, 9, 1, 2, 1, 3, 0, 4, 0, 1, 1, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 5, 3, 6, 2 (列表;图表;参考;;历史;文本;内部格式)
抵消
0,9
链接
阿洛伊斯·海因茨,行n=0..30,扁平
例子
n=4的5个分区是1+1+1+1(lcm=1)、1+1+2(lcm=2)、2+2(lcm=2),1+3(lcm=3)和4(lcm=4)。所以k=1、3和4出现一次,k=2出现两次。
三角形开始于:
1 ;
1 ;
1 1;
1 1 1;
1 2 1 1;
1 2 1 1 1 1;
1 3 2 2 1 2;
1 3 2 2 1 3 1 0 0 1 0 1;
...
MAPLE公司
A256067型:=进程(n,k)
局部a、p;
a:=0;
对于组合[分区](n)do中的p
ilcm(op(p));
如果%=k,则
a:=a+1;
结束条件:;
结束do:
a;
结束进程:
#第二个Maple项目:
b: =proc(n,i)选项记忆`如果`(n=0或i=1,x,
b(n,i-1)+(p->加(系数(p,x,t)*x^ilcm(t,i),
t=1..度(p))(添加(b(n-i*j,i-1),j=1..n/i))
结束时间:
T: =n->(p->seq(系数(p,x,i),i=1..度(p)))(b(n$2)):
seq(T(n),n=0..12)#阿洛伊斯·海因茨2015年3月27日
数学
b[n_,i_]:=b[n,i]=如果[n==0||i==1,x,b[n、i-1]+函数[{p},总和[系数[p,x,t]*x^LCM[t,i],{t,1,指数[p,x]}][总和[b[n-i*j,i-1],{j,1,n/i}]];T[n_]:=函数[{p},表[系数[p,x,i],{i,1,指数[p,x]}][b[n,n]];表[T[n],{n,0,12}]//扁平(*Jean-François Alcover公司2015年6月22日之后阿洛伊斯·海因茨*)
交叉参考
囊性纤维变性。A000041号(行总和),A000793号(行长度),A213952型,A074761号(对角线),A074752号(第6列),A008642号(第4列),A002266号(第5列),A002264号(第3列),A132270型(第7列),A008643号(第8列),A008649号(第9列),A258470型(第10列)。
囊性纤维变性。A009490型(行的非零项数),A074064号(行的最后一个元素),A168532号(与gcd相同),A181844号(总和k*T(n,k))。
关键词
非n,标签
作者
R.J.马塔尔2015年3月18日
扩展
T(0,1)=1由阿洛伊斯·海因茨2015年3月27日
状态
经核准的

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

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

上次修改时间:美国东部夏令时2024年6月22日04:21。包含373561个序列。(在oeis4上运行。)