登录
OEIS由OEIS基金会的许多慷慨捐赠者.

 

标志
提示
(来自的问候整数序列在线百科全书!)
A175949号 通过串联二进制表示获得的数字A175946号(n) 以及A175945号(n) ●●●●。 1
1, 2, 3, 6, 5, 4, 7, 14, 13, 10, 11, 12, 9, 8, 15, 30, 29, 26, 27, 18, 21, 20, 23, 28, 25, 22, 19, 24, 17, 16, 31, 62, 61, 58, 59, 50, 53, 52, 55, 34, 37, 42, 43, 36, 41, 40, 47, 60, 57, 54, 51, 38, 45, 44, 39, 56, 49, 46, 35, 48, 33, 32, 63, 126, 125, 122, 123, 114, 117, 116 (列表图表参考历史文本内部格式)
抵消
1,2
评论
中的操作A175948号,但零的运行时编码(A175946号)位于ones的运行长度编码的左边(A175945号).
链接
例子
n=9是二进制的1001。0的运行长度是2(一个运行长度为2),1的运行长度为11(两个运行长度均为1)。这些长度的串联是211,它被解释为2个1,1个0,1个1,二进制1101,并将十进制重新编码为a(9)=8+4+13。
数学
takelist[l_,t_]:=模块[{lent,term},集合[lent,Length[t]];表[l[[t[[y]]],{y,1,lent}]]
frombinrep[x_]:=FromDigits[Flatten[Table[If[OddQ[n],1,0],{d,1,x[[n]]}],{n,1,Length[x]}]],2]
binrep[x_]:=repcount[整数位数[x,2]
onebinrep[x_]:=模块[{b},b=binrep[x];takelist[b,范围[1,长度[b],2]]
zerobinrep[x_]:=模块[{b},b=binrep[x];takelist[b,Range[2,Length[b],2]]
表[frombinrep[Flatten[{zerobinrep[n],onebinrep[n]}],{n,START,END}]
交叉参考
关键词
基础,非n
作者
迪伦·汉密尔顿2010年10月28日
状态
经核准的

查找|欢迎光临|维基|注册|音乐|地块2|演示|索引|浏览|更多|网络摄像头
贡献新序列。或评论|格式|样式表|变换|超级搜索|最近
OEIS社区|维护人OEIS基金会。

许可协议、使用条款、隐私政策。.

上次修改时间:2024年4月19日14:50 EDT。包含371792个序列。(在oeis4上运行。)