登录

年度呼吁:请向OEIS基金会捐款支持OEIS的持续开发和维护。现在是我们的第61年,我们有超过378000个序列,我们已经获得了11000条引文(通常说“多亏了OEIS才发现”)。

A346519型
2n-多集{0,…,0,1,2,…,n}划分为不同多集的分区数。
1, 2, 9, 59, 442, 3799, 36332, 379831, 4288933, 51867573, 667168482, 9076862555, 130018298663, 1953284957029, 30675458303547, 502166867458649, 8547908294767932, 150965367603029126, 2760941474553823577, 52196915577464262360, 1018499212583077293854
抵消
0,2
评论
2^n*Product_{i=1..n}素数(i+1)分解为不同因子的次数;a(2)=9:3*4*5,2*5*6,6*10,2*3*10,5*12,4*15,3*20,2*30,60。
链接
阿洛伊斯·海因茨,n=0..510时的n,a(n)表
配方奶粉
a(n)=A045778号(A000079号(n)*A070826号(n+1))。
a(n)=总和{j=0..n}斯特林2(n,j)*总和{i=0..n}二项式(j+i-1,i)*A000009号(n-i)。
a(n)=A346520型(n,n)。
例子
a(0)=1:{}。
a(1)=2:01,0|1。
a(2)=9:00|1|2,001|2,1|002,0|01|2,0|1|02,01|02,00|12,0|0112,0012。
MAPLE公司
g: =proc(n)选项记住`如果`(n=0,1,加上(g(n-j)*add(
`如果`(d::奇数,d,0),d=numtheory[除数](j)),j=1..n)/n)
结束时间:
s: =proc(n)选项记忆;展开(`if`(n=0,1,
x*加法(s(n-j)*二项式(n-1,j-1),j=1..n))
结束时间:
S: =proc(n,k)选项记忆;系数(s(n),x,k)结束:
b: =proc(n,i)选项记忆`如果`(n=0,1,
`如果`(i=0,g(n),加上(b(n-j,i-1),j=0..n))
结束时间:
a: =n->加(S(n,j)*b(n,j),j=0..n):
seq(a(n),n=0..20);
数学
g[n_]:=g[n]=如果[n==0,1,总和[g[n-j]*总和[If[OddQ[d],d,0],{d,除数[j]}],{j,1,n}]/n];
s[n]:=s[n]=展开[If[n==0,1,x*Sum[s[n-j]*二项式[n-1,j-1],{j,1,n}]];
S[n_,k_]:=S[n,k]=系数[S[n],x,k];
b[n_,i_]:=b[n,i]=如果[n==0,1,如果[i==0、g[n],和[b[n-j,i-1],{j,0,n}]];
a[n]:=总和[S[n,j]*b[n,j],{j,0,n}];
表[a[n],{n,0,20}](*Jean-François Alcover公司2022年4月6日之后阿洛伊斯·海因茨*)
关键词
非n
作者
阿洛伊斯·海因茨2021年7月21日
状态
经核准的