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

 

标志
提示
(来自的问候整数序列在线百科全书!)
A246588型 S(n)=wt(n)=0,1,1,2,2,3,1,…的游程变换,。。。(参见。A000120号). 11
1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 2, 2, 1, 2, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 1, 1, 2, 2, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 2, 2, 1, 2, 1, 1, 1, 1, 1 (列表;图表;参考;;历史;文本;内部格式)
抵消
0,8
评论
序列{S(n),n>=0}的游程变换定义为由T(n)=Product_i S(i)给出的序列{T(n。所以T(19)=S(1)*S(2)。T(0)=1(空乘积)。
链接
莱因哈德·祖姆凯勒(Reinhard Zumkeller),n=0..10000时的n,a(n)表
MAPLE公司
A000120号:=proc(n)局部w,m,i;w:=0;m:=n;而m>0 do i:=m mod 2;w:=w+i;m:=(m-i)/2;od;w;末端:重量:=A000120号;
ans:=[];
对于从0到100的n,做lis:=[];t1:=换算(n,基数,2);L1:=nops(t1);输出1:=1;c: =0;
对于i从1到L1 do
如果out1=1且t1[i]=1,则out1:=0;c: =c+1;
elif out1=0且t1[i]=1,则c:=c+1;
elif out1=1且t1[i]=0,则c:=c;
elif输出1=0且t1[i]=0,则lis:=[c,op(lis)];out1:=1;c: =0;
fi;
如果i=L1且c>0,则lis:=[c,op(lis)];fi;
日期:
a: =mul(wt(i),i单位为lis);
ans:=[op(ans),a];
日期:
ans;
数学
f[n_]:=数字计数[n,2,1];表[Times@@(f[Length[#]]&)/@Select[Split[IntegerDigits[n,2]],#[1]]==1&],{n,0,100}](*Jean-François Alcover公司2017年7月11日*)
黄体脂酮素
(哈斯克尔)
导入数据。列表(组)
a246588=产品。地图(长度为000120.)。
过滤器((==1)。头部)。组。a030308_低
--莱因哈德·祖姆凯勒2015年2月13日,2014年9月5日
(Python)
从运算符导入mul
从functools导入reduce
来自重新导入拆分
定义A246588型(n) :
如果n>0,则返回reduce(mul,(bin(len(d)).count('1')for d in split('0+',bin(n)[2:])if d)),否则返回1#柴华武2014年9月7日
(鼠尾草)#使用[RLT来自A246660型]
A246588型_列表=lambda len:RLT(lambda n:总和(整数(n).数字(2)),len)
A246588型_列表(88)#彼得·卢什尼2014年9月7日
交叉参考
囊性纤维变性。A000120号.
囊性纤维变性。A167489号,A030308号.
关键词
非n
作者
N.J.A.斯隆2014年9月5日
状态
经核准的

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

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

上次修改时间:美国东部夏令时2024年4月26日12:36。包含371997个序列。(在oeis4上运行。)