|
| |
|
| A333628型 |
| 第n组分按标准顺序的运行阻力。采取运行长度将第n个成分按标准顺序减少为单个的步骤数。 |
|
31
|
|
|
|
0, 0, 1, 0, 2, 2, 1, 0, 2, 1, 3, 2, 2, 3, 1, 0, 2, 2, 3, 2, 3, 2, 3, 2, 2, 3, 4, 3, 4, 3, 1, 0, 2, 2, 3, 1, 2, 2, 3, 2, 2, 1, 2, 2, 2, 3, 3, 2, 2, 2, 4, 2, 3, 2, 4, 3, 4, 2, 3, 3, 4, 3, 1, 0, 2, 2, 3, 2, 2, 2, 3, 2, 3, 3, 4, 2, 2, 3, 3, 2, 2, 2, 4, 3, 3, 4
(列表；图表；参考；听；历史；文本；内部格式)
|
|
|
|
抵消
|
1,5
|
|
|
评论
|
n的合成是一个有限的正整数序列与n相加。第k个合成按标准顺序（第k行A066099美元)通过在k的反向二进制展开中取1的位置集，在0前面加上前缀，取第一个差分，然后再次反转，即可获得。
对于获取有限序列的运行长度序列的操作，运行阻力被定义为达到单个子所需的应用程序数。
|
|
|
链接
|
|
|
|
例子
|
从13789开始并重复应用A333627型给出：13789->859->110->29->11->6->3->2，对应的成分为：（1,2,2,1,1,1,2,1,1,1）->（1,2,1,2,1,1）->（1,2,1,1,2）->（2,1,1,2）->。
|
|
|
数学
|
stc[n_]：=差异[Prepend[Join@@Position[Reverse[IntegerDigits[n，2]]，1]，0]]//反向；
runsres[q_]：=长度[NestWhileList[Length/@Split[#]&，q，长度[#]>1&]]-1；
表[runsres[stc[n]]，{n，100}]
|
|
|
交叉参考
|
囊性纤维变性。A029931号,A098504号,A114994号,A225620型,A228351号,A238279号,A242882型,18928年,A329744型,A329747型,A333489美元.
|
|
|
关键词
|
非n
|
|
|
作者
|
|
|
|
状态
|
经核准的
|
| |
|
|
