显示找到的33个结果中的1-10个。
a(0)=0,之后a(n)给出与a(n-1)的二进制表示中的最大运行长度相同的总运行次数[即。,A043276美元(a(n-1))]之前所有项的二进制展开式中,包括a(n-1)本身中的运行。
+20 4
0, 1, 2, 4, 1, 6, 2, 9, 3, 4, 5, 15, 1, 16, 2, 19, 7, 1, 21, 26, 8, 2, 32, 1, 34, 3, 9, 10, 43, 11, 12, 14, 4, 15, 3, 16, 4, 17, 5, 58, 6, 18, 19, 21, 71, 8, 9, 22, 23, 10, 84, 24, 11, 26, 27, 29, 12, 31, 2, 99, 13, 34, 14, 15, 5, 108, 37, 38, 40, 16, 6, 41, 42, 130, 3, 43, 44, 46, 17, 18, 47, 7, 19, 49
例子
a(0)=0(根据定义),并且0在二进制中也是“0”,我们认为它包含一个长度为1的单段。
对于n=1,我们看到在a(0)中有一条长度为1的游程,这是迄今为止长度为1(0)的游程总数。。a(n-1),因此a(1)=1。
对于n=2,我们看到a(1)=1('1'也以二进制表示)的唯一且因此也是最长的运行总共发生了两次(a(0)和a(1。
对于n=3,我们看到在a(2)=2(二进制为'10')中有两次运行,都是一位长,到目前为止总共发生了四次这样的运行(即在a(0)和a(1)中一次,在a(2中两次),因此a(3)=4。
对于n=4,我们可以看到a(3)=4(二进制中的“100”)的最长运行是两位长,它是序列中迄今为止的第一个也是唯一一个两位运行,因此a(4)=1。
对于n=5,我们看到a(4)=1(二进制中的“1”)的最长运行是一位长,到目前为止,已经发生了6次以a(0)表示的这种一位运行。。a(4),因此a(5)=6。
对于n=6,我们可以看到a(5)=6(二进制中的“110”)的最长运行是两位长,到目前为止已经发生了两次这样的两位运行(其中一次是a(3)和a(5”),因此a(6)=2。
黄体脂酮素
(MIT/GNU方案,从安蒂·卡图恩的IntSeq-library)
;; 有关binexp->runcount1list,请参见示例A129594号.
(定义(A249146aux_rulen_counts n)(条件((零?n)(矢量1)))(否则(让*((a_n(A249146型n) )(副本(矢量副本(A249146aux_runne_counts(-n 1)))(新闻大小(最大值(矢量长度副本))(A043276美元a_n)))(lencounts-for-n(vector-grow copy-of-prevec newsize))(let loop((runlens(binexp->runcount1list a_n
1, 1, 2, 1, 2, 1, 2, 2, 2, 1, 4, 1, 4, 1, 2, 3, 1, 1, 2, 3, 1, 5, 1, 3, 2, 2, 1, 2, 2, 2, 3, 2, 4, 2, 4, 2, 3, 1, 3, 2, 2, 2, 1, 3, 3, 2, 2, 3, 1, 2, 3, 2, 2, 2, 3, 2, 5, 1, 3, 2, 3, 3, 4, 1, 2, 2, 2, 3, 4, 2, 2, 1, 5, 2, 2, 2, 3, 3, 2, 4, 3, 2, 3, 2, 2, 2, 3, 2, 3, 3, 3, 2, 4, 3, 2, 5, 2, 6, 1, 2, 5, 1, 2, 4, 2, 4, 1, 3, 2, 3, 3, 4, 2, 3, 5, 2, 2, 2, 2, 4, 2, 2, 2, 1, 3, 5, 3, 4
行读取的不规则数组:第n行包含A043276美元(n) 条款。a(n,m)=n的二进制表示中长度m的运行次数(0或1)。
+20 1
1, 2, 0, 1, 1, 1, 3, 1, 1, 0, 0, 1, 1, 0, 1, 2, 1, 4, 2, 1, 0, 2, 2, 1, 1, 0, 1, 0, 0, 0, 1, 1, 0, 0, 1, 2, 0, 1, 3, 1, 1, 2, 3, 1, 5, 3, 1, 2, 0, 1, 0, 1, 1, 1, 2, 3, 1, 1, 2, 0, 1, 1, 2, 0, 1, 1, 0, 0, 1, 0, 0, 0, 0, 1, 1, 0, 0, 0, 1, 2, 0, 0, 1, 3, 0, 1, 1
例子
二进制中的23等于10111。有两段长度为1,零段长度为2,一段长度为3。因此,第23行是(2,0,1)。
黄体脂酮素
(PARI)行(n)=我的(r=[]);而(n,my(v=估值(n+(n%2),2));r=连接(v,r);n=2^v);my(f=矢量(vecmax(r)));对于(i=1,#r,f[r[i]]++);(f)\\雷米·西格里斯特,2019年2月13日
行读取的三角形:第n行是n的二进制表示中最左边1的运行长度,其次是0的运行长度、1的运行时间等。
+10 61
1, 1, 1, 2, 1, 2, 1, 1, 1, 2, 1, 3, 1, 3, 1, 2, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 1, 1, 3, 1, 4, 1, 4, 1, 3, 1, 1, 2, 1, 1, 1, 2, 2, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 3, 2, 3, 2, 2, 1, 2, 1, 1, 1, 2, 1, 2, 3, 2, 3, 1, 1, 4, 1, 5, 1, 5, 1, 4, 1, 1, 3, 1, 1, 1, 3, 2, 1, 2, 1, 2, 1, 2, 1, 1, 1, 1, 2, 2, 1
评论
如果n是偶数,那么第2*n行是第n行,最后一个元素加1,第2*n+1行是第n行,后面加1。
如果n是奇数,那么第2*n+1行是第n行,最后一个元素加1,第2*n行是第n行,后面加1。(结束)
例子
因为9在二进制中是1001,所以第9行是1,2,1。
因为11在二进制中是1011,所以第11行是1,1,2。
三角形开始:
1;
1,1;
2;
1,2;
1,1,1;
2,1;
三;
1,3;
MAPLE公司
#W.Edwin Clark提供的Maple项目:
运行:=proc(L)local j,r,i,k;j:=1:r[j]:=L[1]:对于i从2到nops(L)do,如果L[i]=L[i-1],那么r[j]:=r[j',L[i]否则j:=j+1:r[j]:=L[i]end if end do:[seq([r[k]],k=1..j)]end proc:运行长度:=proc(L)map(nops,Runs(L))end proc:=proc RunLengths(%)end proc:#使用命令c(n)获得第n行-Emeric Deutsch公司2017年7月3日
#W.Edwin Clark的Maple程序,生成与给定成分(成分索引)相对应的整数ind:
ind:=proc(x)local x,j,i:x:=NULL:对于j到nops(x)do if type(j,odd)then x:=x,seq(1,i=1..x[j])end if:如果type(j,even)then x:=x,seq(0,i=1.x[j)end如果end do:x:=[x]:add(x[i]*2^(nops(x)-i),i=1。。nops(X))结束进程;#显然,ind(c(n))=n-Emeric Deutsch公司2018年1月23日
数学
表[长度/@拆分@整数位数[n,2],{n,38}]//展平(*迈克尔·德弗利格2017年7月11日*)
黄体脂酮素
(方案,两种变体)
(哈斯克尔)
导入数据。列表(组)
a101211 n k=a101211_tabf!!(n-1)!!(k-1)
a101211_row n=a101211_tabf!!(n-1)
a101211_tabf=地图(reverse.map-length.group)$tail a030308_tabf
(Python)
从itertools导入groupby
def arow(n):返回[len(list(g))for k,g in groupby(bin(n)[2:])]
定义auptorow(行):
alst=[]
对于范围(1,行+1)中的i:alst.extend(arow(i))
返回alst
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1
黄体脂酮素
(Python)
从itertools导入groupby
定义A043290美元(n) :return max(len(list(g))for k,g in groupby(十六进制(n)[2:]))#柴华武2023年3月9日
交叉参考
囊性纤维变性。A043276美元,A043277号,A043278号,A043279号,A043280型,A043281号,A043282号,A043283号,A043284号,A043285号,A043286号,A043287号,A043288号,A043289号用于base-2到base-15类似物。
0, 1, 2, 2, 3, 1, 4, 3, 4, 1, 5, 2, 6, 1, 2, 4, 7, 1, 8, 2, 2, 1, 9, 2, 6, 1, 6, 2, 10, 1, 11, 5, 2, 1, 3, 2, 12, 1, 2, 3, 13, 1, 14, 2, 3, 1, 15, 2, 8, 1, 2, 2, 16, 1, 3, 3, 2, 1, 17, 2, 18, 1, 4, 6, 3, 1, 19, 2, 2, 1, 20, 3, 21, 1, 2, 2, 4, 1, 22, 3, 8, 1
评论
n的素数指数是一个数m,使得素数(m)除以n。n的多素数指数集是A112798号.
每个序列都可以唯一地分割成一系列不重叠的运行。例如,(2,2,1,1,1,1,3,2,2)的运行是((2,2),(1,1,1),(3),(2,2。
例子
72的素数指数为{1,1,1,2,2},运行和为{3,4},因此a(72)=3。
数学
表[Min@@Cases[FactorInteger[n],{p_,k_}:>PrimePi[p]*k],{n,100}]
1, 1, 1, 2, 1, 1, 1, 2, 2, 1, 1, 2, 3, 2, 1, 1, 2, 2, 1, 1, 1, 2, 1, 2, 2, 3, 3, 2, 2, 1, 2, 1, 1, 1, 2, 2, 2, 2, 3, 4, 3, 2, 2, 2, 2, 1, 1, 1, 2, 1, 2, 2, 3, 3, 2, 2, 1, 2, 1, 1, 1, 2, 2, 1, 1, 2, 3, 2, 1, 1, 2, 2, 2, 2, 2, 2, 2, 3, 3, 4, 4, 3, 3, 2, 2, 2, 2, 2, 2, 2
MAPLE公司
mRunLen:=进程(L)
如果nops(L)=0,则
0;
其他的
a:=1;
对于i从2到nops(L)do
如果op(i,L)=op(i-1,L),则
a:=a+1;
其他的
a:=最大值(a,进程名([op(i..nops(L),L)]);
断裂;
结束条件:;
结束do:
a;
结束条件:;
结束进程:
换算(n,基数,3);
mRunLen(%);
结束进程:
数学
表[Max[Length/@Split[Integer Digits[n,3]],{n,90}](*哈维·P·戴尔2019年8月24日*)
黄体脂酮素
(PARI)A043277号(n,b=3)={my(m,c=1);while(n>0,n%b==(n=b)%b&&c++&next;m=最大值(m,c);c=1;m}\-m.F.Hasler,2013年7月23日
1, 1, 1, 1, 2, 1, 1, 1, 1, 2, 1, 1, 1, 1, 2, 2, 1, 1, 1, 2, 3, 2, 2, 1, 1, 2, 1, 1, 1, 1, 2, 2, 1, 1, 1, 1, 2, 1, 1, 2, 2, 3, 2, 1, 1, 1, 2, 2, 1, 1, 1, 1, 2, 1, 1, 1, 1, 2, 1, 2, 2, 2, 3, 3, 2, 2, 2, 1, 2, 1, 1, 1, 1, 2, 1, 1, 1, 1, 2, 2, 2, 2, 2, 3, 4, 3, 3, 2, 2, 2
MAPLE公司
mRunLen:=进程(L)
如果nops(L)=0,则
0;
其他的
a:=1;
对于i从2到nops(L)do
如果op(i,L)=op(i-1,L),则
a:=a+1;
其他的
a:=max(a,procname([op(i..nops(L),L)]);
断裂;
结束条件:;
结束do:
a;
结束条件:;
结束进程:
转换(n,基数,4);
mRunLen(%);
数学
表[Max[Length/@Split[Integer Digits[n,4]],{n,100}](*哈维·P·戴尔2014年1月21日*)
黄体脂酮素
(PARI)A043278号(n,b=4)={my(m,c=1);而(n>0,n%b==(n\=b)%b&&c++&next;m=最大值(m,c);c=1;m}\\M.F.哈斯勒2013年7月23日
1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 2
黄体脂酮素
(PARI)A043283美元(n,b=9)={my(m,c=1);而(n>0,n%b==(n\=b)%b&&c++&next;m=最大值(m,c);c=1;m}\\M.F.哈斯勒2013年7月23日
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
MAPLE公司
A043289号:=程序(n)dgs:=转换(n,基数,15);a:=1;rl:=1;对于i从2到nops(dgs),如果op(i,dgs;rl:=1;否则rl:=rl+1;结束条件:;结束do:a:=最大值(a,rl);a;终末程序#R.J.马塔尔2012年1月11日
黄体脂酮素
(PARI)A043289号(n,b=15){=my(m,c=1);while(n>0,n%b==(n\=b)%b&&c++&next;m=最大值(m,c);c=1;m}\\M.F.哈斯勒2013年7月23日
搜索在0.014秒内完成
|