%I#25 2022年2月4日11:19:05

%S 1,1,1,3,1,1,3,5,1,1,1,3,3,3,15,1,1,1,3,1,3,1,3,1,5,3,3，9,5,5,15,17,1，

%第1,1,1,1,3,5,1,1,3,3,5,5,15,3,3，3,3,15,9,3,9,15,5,15,15,15,17,51页，

%U 1,1,1,3,1,1,3,5,1,1,3,3,5,5,1,1,1,3,1,1,1,1,2,1,3,13,3,1,5,3,2,3,9,5,15,17,3,3A,9,9,15,45

%A0001317的N游程长度变换。

%C序列{S（n），n>=0｝的游程长度变换被定义为由T（n）=Product_i S（i）给出的序列{T（n），n>=0｝，其中i贯穿n的二进制展开中的1的游程长度。例如，19在二进制中是10011，它有两个1的游程，长度为1和2。所以T（19）=S（1）*S（2）。T（0）=1（空乘积）。

%C此序列是通过对序列A001317:1、3、5、15、17、51、85、255、257…的右移版本应用Run-Length Transform获得的。。。

%H Antti Karttunen，n表，n=0..8192</a>

%F对于所有n>=0，a（A051179（n））=A246674（A051176（n。

%e 115是二进制的“1110011”。1次运行的运行长度为2和3，因此a（115）=A001317（2-1）*A001318（3-1）=3*5=15。

%e自2015年2月15日起生效：（开始）

%e写成不规则三角形，其中的行长度是A011782的术语：

%e 1；

%e 1；

%e 1,3；

%e 1,1,3,5；

%e 1,1,3,3,3,15,15；

%e 1,1,3,1,3,1,3,5,3,3,,3,9,5,5,15,17；

%e第1,1,3,1,1,3,5,11,1,3,3,3,15,3,9,3,2,9,15,5,15,15,17,51页；

%e。。。

%e右边框与A001317一起给出1。

%e（结束）

%t a1317[n_]：=FromDigits[表[Mod[二项式[n-1，k]，2]，{k，0，n-1}]，2]；

%t表[Times@@（a1317[Length[#]]&）/@Select[Split[IntegerDigits[n，2]，#[[1]]==1&]，{n，0，100}]（*_Jean-François Alcover_，2017年7月11日*）

%o（MIT/GNU方案）

%o（定义（A247282 n）（左折（λ（a r）（*a（A001317（-r 1））））1（平分（反向（binexp->runcount1list n））（-1（模n 2）））

%o；；A227349中的其他功能。

%o（Python）

%o#使用A278159的RLT函数

%o定义A247282（n）：返回RLT（n，lambda m:int（''.join（str（int（not（~（m-1）&k）））for k in range（m）），2））#_Chai Wah Wu_，2022年2月4日

%Y参考A003714（给出1的位置）。

%Y参见A001317、A051179。

%将相同的变换应用于A000079时，得到Y A001316，即二的幂。

%其他序列的Y游程变换：A071053、A227349、A246588、A246595、A24659、A246660、A24666、A246674、A246685。

%K nonn公司

%0、4

%2014年9月22日，安蒂·卡图宁