显示1-1个结果(共1个)。
第页1
1, 1, 1, 2, 1, 1, 2, 3, 1, 1, 1, 2, 2, 2, 3, 4, 1, 1, 1, 2, 1, 1, 2, 3, 2, 2, 2, 4, 3, 3, 4, 5, 1, 1, 1, 2, 1, 1, 2, 3, 1, 1, 1, 2, 2, 2, 3, 4, 2, 2, 2, 4, 2, 2, 4, 6, 3, 3, 3, 6, 4, 4, 5, 6, 1, 1, 1, 2, 1, 1, 2, 3, 1, 1, 1, 2, 2, 2, 3, 4, 1, 1, 1, 2, 1, 1, 2, 3, 2, 2, 2, 4, 3, 3, 4, 5, 2, 2, 2, 4, 2, 2, 4, 6, 2, 2, 2, 4, 4, 4, 6, 8, 3, 3, 3, 6, 3, 3, 6, 9, 4
评论
这是S(n)={0,1,2,3,4,5,6,…}的游程变换。序列{S(n),n>=0}的游程变换定义为由T(n)=Product_i S(i)给出的序列{T(n。所以T(19)=S(1)*S(2)。T(0)=1(空乘积)-N.J.A.斯隆2014年9月5日
例子
a(0)=1,因为零没有1的运行,且空乘积为1。
a(1)=1,因为1在二进制中是“1”,并且只有1次运行的长度是1。
a(2)=1,因为2在二进制中是“10”,并且只有一次长度为1的1位运行。
a(3)=2,因为3在二进制中是“11”,并且有两个1位的一次运行。
a(55)=6,因为55在二进制中是“110111”,并且2*3=6。
a(119)=9,因为119是二进制的“1110111”,并且3*3=9。
1;
1;
1,2;
1,1,2,3;
1,1,1,2,2,2,3,4;
1,1,1,2,1,1,2,3,2,2,2,4,3,3,4,5;
1,1,1,2,1,1,2,3,1,1,1,2,2,2,3,4,2,2,2,4,2,2,4,6,3,3,3,6,4,4,5,6;
...
(结束)
此外,序列可以写成不规则四面体T(s,r,k),如下所示:
1;
..
1;
..
1;
2;
....
1,1;
2;
三;
........
1,1,1,2;
2,2;
三;
4;
................
1,1,1,2,1,1,2,3;
2,2,2,4;
3,3;
4;
5;
................................
1,1,1,2,1,1,2,3,1,1,1,2,2,2,3,4;
2,2,2,4,2,2,4,6;
3,3,3,6;
4,4;
5;
6;
...
除了首字母1之外,我们还有T(s,r,k)=T(s+1,r,k)。
(结束)
MAPLE公司
a: =proc(n)局部i,m,r;m、 r:=n,1;
当m>0时
而irem(m,2,'h')=0 do m:=h od;
当irem(m,2,'h')=1时,i从0开始:=hod;
r: =r*i
od;第页
结束:
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)];输出1:=1;c: =0;
fi;
如果i=L1且c>0,则lis:=[c,op(lis)];fi;
日期:
a: =mul(i,i in lis);
ans:=[op(ans),a];
日期:
数学
onBitRunLenProd[n_]:=倍@@Length/@选择[Split@IntegerDigits[n,2],#[[1]]==1&];数组[onBitRunLenProd,100,0](*让-弗朗索瓦·奥尔科弗2016年3月2日*)
黄体脂酮素
(Python)
从运算符导入mul
从functools导入reduce
来自重新导入拆分
如果n>0,则返回reduce(mul,(len(d)for d in split('0+',bin(n)[2:])if d)),否则返回1#柴华武2014年9月7日
(方案)
(定义(A227349号n) (应用*(平分(反向(binexp->runcount1list n))(-1(模n 2))))
(定义(平分列表奇偶校验)(let loop((lista lista)(i 0)(z(list)))(cond((null?lista))(reverse!z))((eq?i parity)(loop(cdr lista),(modulo(1+i)2)(cons(car lista)z))))
(定义(binexp->runcount1list n)(if(零?n)(列表)(let loop((n n)(rc(列表))(计数0)(prev bit(module n 2)))
扩展
数据段扩展至术语a(120)安蒂·卡图恩2017年4月14日
搜索在0.006秒内完成
|