| 显示找到的5个结果中的1-5个。
第页1
1, 1, 3, 9, 34, 135, 610, 2965, 15612, 87871, 526274, 3334850, 22270254, 156172689, 1146640394, 8791424549, 70227355786, 583283741066, 5027823752930, 44903579626132, 414877600876638, 3959945232723603, 38996757506464858, 395749369598406027, 4134132167178705732
MAPLE公司
读取转换；A:=系列（exp（x）-1），x，60）；A000110号：=n->n*系数（A，x，n）；[顺序(A000110号（i） ，i=1..30）]；欧元（%）；
a:=EulerInvTransform（组合：-bell）：
seq（a（n），n=1..25）#彼得·卢什尼2022年11月21日
数学
n=24；eq[0]=静止[Thread[CoefficientList[1+Series[Sum[BellB[k]*x^k，{k，1，n}]-乘积[1/（1-x^k）^a[k]，{k、1，n{]，{x，0，n}]，x]==0]]；s[1]=第一个[Solve[First[eq[0]]，a[1]]；Do[eq[k]=休息[eq[k-1]]/。s[k]；s[k+1]=第一个[解[First[eq[k]]，a[k+1]]，{k，1，n-1}]；表[a[k]，{k，1，n}]/。扁平[表格[s[k]，{k，1，n}]](*Jean-François Alcover公司2011年7月26日*）
bb=阵列[BellB，n=25]；s={}；对于[i=1，i<=n，i++，AppendTo[s，i*bb[[i]]-和[s[[d]]*bb[[i-d]]，{d，i-1}]]；表[Sum[If[i，d]，MoebiusMu[i/d]，0]*s[[d]]，{d，1，i｝]/i，{i，n｝](*Jean-François Alcover公司2016年4月15日*）
1, 1, 2, 7, 21, 78, 305, 1304, 6007, 29854, 159012, 904986, 5479078, 35150263, 238033523, 1695554145, 12663533586, 98881246850, 805128085616, 6820302066048, 59983405937707, 546690232627480, 5154757226832625, 50208266917662433, 504482106565647708
配方奶粉
G.f.：乘积_{k>=1}（1+x^k）^Bell（k）。
MAPLE公司
g： =proc（n）选项记忆`如果`（n=0，1，
加法（二项式（n-1，j-1）*g（n-j），j=1..n））
结束时间：
b： =proc（n，i）选项记忆`如果`（n=0，1，`如果`（i<1，0，
加法（二项式（g（i），j）*b（n-i*j，i-1），j=0..n/i））
结束时间：
a： =n->b（n$2）：
seq（a（n），n=0..30）；
数学
g[n_]：=g[n]=如果[n==0，1，
求和[二项式[n-1，j-1]*g[n-j]，{j，1，n}]]；
b[n_，i_]：=b[n，i]=如果[n==0，1，如果[i<1，0，
求和[二项式[g[i]，j]*b[n-i*j，i-1]，{j，0，n/i}]]；
a[n]：=b[n，n]；
1, 3, 10, 62, 446, 3975, 41098, 484152, 6390488, 93419965, 1498268466, 26159940522, 494036061550, 10035451747919, 218207845446062, 5057251219752612, 124462048466812950, 3241773988594489244, 89093816361187396674, 2576652694087236419386, 78224564280680539732266
配方奶粉
乘积{k>=1}（1+x^k）^a（k）=和{n>=0}A000670号（n） *x ^n个。
MAPLE公司
g： =proc（n）选项记忆`如果`（n=0，1，
加上（g（n-j）*二项式（n，j），j=1..n））
结束时间：
b： =proc（n，i）选项记忆`如果`（n=0，1，`如果`（i<1，0，
加法（二项式（a（i），j）*b（n-i*j，i-1），j=0..n/i））
结束时间：
a： =proc（n）选项记忆；g（n）-b（n，n-1）端：
seq（a（n），n=1..30）；
数学
g[n_]：=g[n]=如果[n==0，1，
和[g[n-j]二项式[n，j]，{j，1，n}]]；
b[n_，i_]：=b[n，i]=如果[n==0，1，如果[i<1，0，
求和[二项式[a[i]，j]b[n-ij，i-1]，{j，0，n/i}]]；
a[n]：=a[n]=g[n]-b[n，n-1]；
乘积_｛n>=1｝（1+a（n）*x^n）=Sum_｛n>=0｝贝尔（n）*x^n，其中贝尔=A000110号.
+10
1
1, 2, 3, 12, 34, 139, 610, 3046, 15604, 88460, 526274, 3344037, 22270254, 156359026, 1146627256, 8796070308, 70227355786, 583404596184, 5027823752930, 44907492540298, 414877525216196, 3960083715148092, 38996757506464858, 395754951565246801, 4134132167169618654, 44409616948511664062
数学
A[m，n_]：=A[m，n]=哪个[m==1，BellB[n]，m>n>=1，0，真，A[m-1，n]-A[m-1，m-1]A[m，n-m+1]]；a[n_]：=a[n，n]；a/@范围[1，26]
乘积{n>=1}1/（1-a（n）*x^n）=Sum_{n>=0}Bell（n）*x^n，其中Bell=A000110号.
+10
0
1, 1, 3, 9, 34, 132, 610, 2929, 15604, 87310, 526274, 3325946, 22270254, 155986944, 1146627256, 8787134873, 70227355786, 583161239732, 5027823752930, 44899767806134, 414877525216196, 3959806750825202, 38996757506464858, 395743830189684984, 4134132167169618654, 44409120984298440176
数学
A[m_，n_]：=A[m，n]=其中[m==1，BellB[n]，m>n>=1，0，真，A[m-1，n]-A[m-1、m-1]A[m-1，n-m+1]]；a[n_]：=a[n，n]；a/@范围[1，26]
搜索在0.005秒内完成
查找|欢迎光临|维基|注册|音乐|地块2|演示|索引|浏览|网络摄像头
贡献新序列。或评论|格式|样式表|变换|超级搜索|最近
OEIS社区|维护人OEIS基金会。
许可协议、使用条款、隐私政策。.
上次修改时间：美国东部夏令时2024年9月21日15:10。包含376087个序列。（在oeis4上运行。）
| 