|
|
|
|
1, 1, 2, 3, 6, 8, 11, 16, 22, 28, 39, 49, 61, 77, 93, 114, 140, 169, 198, 233, 276, 321, 381, 439, 509, 591, 678, 774, 883, 1007, 1147, 1300, 1465, 1641, 1845, 2068, 2317, 2590, 2881, 3193, 3549, 3928, 4341, 4793, 5282, 5813, 6401, 7027, 7699, 8432, 9221, 10076
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
0,3
|
|
评论
|
序列的第一个商被定义为该序列是一个递增的除数链,因此例如(6,3,1)的第一个商是(1/2,1/3)。
|
|
链接
|
|
|
例子
|
成分(3,1,1,2)具有第一商(1/3,1、2),因此根据a(7)计算。
a(1)=1到a(7)=16组分:
(1) (2) (3) (4) (5) (6) (7)
(1,1) (1,2) (1,3) (1,4) (1,5) (1,6)
(2,1) (2,2) (2,3) (2,4) (2,5)
(3,1) (3,2) (3,3) (3,4)
(1,1,2) (4,1) (4,2) (4,3)
(2,1,1) (1,1,3) (5,1) (5,2)
(2,1,2) (1,1,4) (6,1)
(3,1,1) (2,1,3) (1,1,5)
(3,1,2) (2,1,4)
(4,1,1) (2,2,3)
(2,1,1,2) (3,1,3)
(3,2,2)
(4,1,2)
(5,1,1)
(2,1,1,3)
(3,1,1,2)
|
|
MAPLE公司
|
b: =proc(n,q,l)选项记忆`如果`(n=0,1,添加(
`如果`(q=0或q>l/j,b(n-j,l/j,j),0),j=1..n))
结束时间:
a: =n->b(n,0美元2):
|
|
数学
|
表[Length[Select[Join@@Permutations/@IntegerPartitions[n],Less@@Divide@@Reverse/@Partition[#,2,1]&]],{n,0,15}]
(*第二个节目:*)
b[n_,q_,l_]:=b[n,q,l]=如果[n==0,1,求和[
如果[q==0||q>l/j,b[n-j,l/j,j],0],{j,1,n}]];
a[n]:=b[n,0,0];
|
|
交叉参考
|
囊性纤维变性。A003242号,A008965号,A048004型,A059966号,A067824号,电话:167606,A253249号,A318991型,A318992型,A342527飞机,A342528型.
|
|
关键字
|
非n
|
|
作者
|
|
|
扩展
|
|
|
状态
|
经核准的
|
|
|
|