|
| |
|
| A333192型 |
| n组分的数量严格增加运行长度。 |
|
5
|
|
|
|
1, 1, 2, 2, 4, 5, 7, 10, 14, 16, 24, 31, 37, 51, 67, 76, 103, 129, 158, 199, 242, 293, 370, 450, 538, 652, 799, 953, 1147, 1376, 1635, 1956, 2322, 2757, 3271, 3845, 4539, 5336, 6282, 7366, 8589, 10046, 11735, 13647, 15858, 18442, 21354, 24716, 28630, 32985
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
0,3
|
|
|
评论
|
n的合成是正整数与n相加的有限序列。
|
|
|
链接
|
|
|
|
例子
|
a（1）=1到a（8）=14组分：
(1) (2) (3) (4) (5) (6) (7) (8)
(11) (111) (22) (122) (33) (133) (44)
(211) (311) (222) (322) (233)
（1111）（2111）（411）（511）（422）
(11111) (3111) (1222) (611)
(21111) (4111) (2222)
(111111) (22111) (5111)
(31111) (11222)
(211111) (41111)
(1111111) (122111)
(221111)
(311111)
(2111111)
(11111111)
例如，组合（1,2,2,1,1,1）具有运行长度（1,2,3），因此在a（8）下计算。
|
|
|
数学
|
表[Length[Select[Join@@Permutations/@IntegerPartitions[n]，Less@@Length/@Split[#]&]]，{n，0，15}]
b[n_，lst_，v_]：=b[n，lst，v]=如果[n==0，1，如果[n<=lst，0，Sum[If[k==v，0，b[n-k pz，pz，k]]，{pz，lst+1，n}，{k，Floor[n/pz]}]]；a[n]：=b[n，0，0]；a/@范围[0，50](*乔瓦尼·雷斯塔2020年5月18日*）
|
|
|
交叉参考
|
囊性纤维变性。A072706年,A098859号,A100882号,2008年1月83日,A304686型,A329744型,A329766型,A332726飞机,A332833飞机,A332834飞机,A332835型,A333147型,A333149飞机,A333190型.
|
|
|
关键字
|
非n
|
|
|
作者
|
|
|
|
扩展
|
|
|
|
状态
|
经核准的
|
| |
|
|
