%I#8 2019年2月10日13:27:58
%S 1,1,2,1,1,1,1,3,1,1,1,2,1,1,4,1,1,1,11,1,1,1,1,1,12,1,1,2,1,1,5,1,1,1,
%T 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2,1,2,1,1,1,1,1,1,1,3,1,1,2,1,1,6,1,1,1,
%U 1,1,1,1,1,1,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
%N的二进制表示中的最小游程。
%p A175597:=proc(n)本地dgs,odig,runl,thisr,i;dgs:=转换(n,基数,2);odig:=-1;runl:=nops(dgs)+1;此值:=0;对于i从1到nops(dgs),做d:=op(i,dgs;如果i=1,则此r:=1;否则,如果d<>odig,那么如果thisr<runl,那么runl:=thisr;结束条件:;这个:=1;否则thisr:=thisr+1;结束条件:;结束条件:;odig:=d;结束操作:如果thisr<runl,则runl:=thisr;结束条件:;返回runl;结束进程:序列(A175597(n),n=1..130);#_R.J.Mathar,2010年7月26日
%Y参考A043276。
%K nonn,基础
%氧1,3
%A _Juri-Stepan Gerasimov,2010年7月21日
|