搜索: a274936-编号:a274926
|
|
|
|
0, 0, 1, 1, 2, 3, 6, 11, 23, 46, 99, 216, 488, 1121, 2644, 6334, 15437, 38132, 95368, 241029, 614968, 1582030, 4100157, 10697038, 28075303, 74086468, 196470902, 523383136, 1400051585, 3759508536, 10131097618, 27391132238, 74283552343, 202030012554, 550934060120, 1506161266348
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
0,5
|
|
链接
|
|
|
配方奶粉
|
G.f.:[A(x)^2+A(x^2)]/2其中A(xA000055号没有初始常数1。
|
|
MAPLE公司
|
b: =proc(n)选项记忆`如果`(n<2,n,(添加(添加(d*
b(d),d=除数(j)*b(n-j),j=1..n-1))/(n-1)
结束时间:
g: =proc(n)选项记忆`如果`(n=0,1,b(n)-加(b(j)*
b(n-j),j=0..n/2)+`如果`(n::奇数,0,(t->t*(t+1)/2)(b(n/2)))
结束时间:
a: =proc(n)选项记忆;加上(g(j)*g(n-j),j=1..n/2)-
`如果`(n::奇数,0,(t->t*(t-1)/2)(g(n/2))
结束时间:
|
|
数学
|
b[n_]:=b[n]=如果[n<2,n,和[DivisorSum[j,#*b[#]&]*b[n-j],{j,1,n-1}]/(n-1)];
g[n_]:=g[n]=如果[n==0,1,b[n]-和[b[j]*b[n-j],{j,0,n/2}]+如果[OddQ[n],0,函数[t,t*(t+1)/2][b[n/2]]];
a[n]:=a[n]=和[g[j]*g[n-j],{j,1,n/2}]-如果[OddQ[n],0,函数[t,t*(t-1)/2][g[n/2]]];
|
|
交叉参考
|
|
|
关键词
|
非n
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|
|
|
|
1, 1, 2, 2, 4, 6, 12, 22, 46, 93, 205, 451, 1039, 2422, 5803, 14075, 34757, 86761, 219235, 558984, 1438033, 3726535, 9723913, 25525112, 67375200, 178723358, 476264352, 1274448596, 3423494617, 9229075121, 24961969420, 67721961268, 184255962564, 502658875034, 1374713691841, 3768527610094, 10353602341313
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
0,3
|
|
评论
|
|
|
链接
|
|
|
配方奶粉
|
|
|
MAPLE公司
|
带有(数字理论):
b: =proc(n)选项记忆`如果`(n<2,n,(add(add(d*
b(d),d=除数(j)*b(n-j),j=1..n-1))/(n-1)
结束时间:
g: =proc(n)选项记忆`如果`(n=0,1,b(n)-加(b(j)*
b(n-j),j=0..n/2)+`如果`(n::奇数,0,(t->t*(t+1)/2)(b(n/2)))
结束时间:
a: =proc(n)选项记忆;加上(g(j)*g(n-j),j=0..n/2)-
`如果`(n::奇数,0,(t->t*(t-1)/2)(g(n/2))
结束时间:
|
|
数学
|
b[n_]:=b[n]=如果[n<2,n,和[DivisorSum[j,#*b[#]&]*b[n-j],{j,1,n-1}]/(n-1)];
g[n_]:=g[n]=如果[n==0,1,b[n]-和[b[j]*b[n-j],{j,0,n/2}]+如果[OddQ[n],0,函数[t,t*(t+1)/2][b[n/2]]];
a[n]:=a[n]=和[g[j]*g[n-j],{j,0,n/2}]-如果[OddQ[n],0,函数[t,t*(t-1)/2][g[n/2]]];
|
|
交叉参考
|
|
|
关键词
|
非n
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|
|
A274938型
|
| 具有n个节点且具有两个组件的未标记林的数量,这两个组件都不是空图。 |
|
+10 4
|
|
|
0, 0, 0, 1, 1, 3, 5, 11, 21, 46, 96, 216, 482, 1121, 2633, 6334, 15414, 38132, 95321, 241029, 614862, 1582030, 4099922, 10697038, 28074752, 74086468, 196469601, 523383136, 1400048426, 3759508536, 10131089877, 27391132238, 74283533023, 202030012554, 550934011491, 1506161266348
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
0,6
|
|
链接
|
|
|
配方奶粉
|
G.f.:[A(x)^2-A(x^2)]/2其中A(xA000055号没有初始常数1。
|
|
MAPLE公司
|
带有(数字理论):
b: =proc(n)选项记忆`如果`(n<2,n,(添加(添加(d*
b(d),d=除数(j)*b(n-j),j=1..n-1))/(n-1)
结束时间:
g: =proc(n)选项记忆`如果`(n=0,1,b(n)-加(b(j)*
b(n-j),j=0..n/2)+`如果`(n::奇数,0,(t->t*(t+1)/2)(b(n/2)))
结束时间:
a: =proc(n)选项记忆;加(g(j)*g(n-j),j=1..n/2)-
`如果`(n::奇数或n=0,0,(t->t*(t+1)/2)(g(n/2))
结束时间:
|
|
数学
|
b[n_]:=b[n]=如果[n<2,n,和[DivisorSum[j,#*b[#]&]*b[n-j],{j,1,n-1}]/(n-1)];
g[n_]:=g[n]=如果[n==0,1,b[n]-和[b[j]*b[n-j],{j,0,n/2}]+如果[OddQ[n],0,函数[t,t*(t+1)/2][b[n/2]]];
a[n]:=a[n]=和[g[j]*g[n-j],{j,1,n/2}]-如果[OddQ[n]||n==0,0,函数[t,t*(t+1)/2][g[n/2]]];
|
|
交叉参考
|
|
|
关键词
|
非n
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
搜索在0.007秒内完成
|