%I#76 2023年10月26日15:12:21
%S 2,0,22,47,3843673662322391247262123398263600679530725244,
%电话:81181615690326
%N a(N)是最小的非负整数,因此a(N!包含正好n个连续1的字符串。
%e a(0)=2自2起!等于2,不包含任何“1”。
%e a(1)=0,自0起!等于1,其中包含“1”,但不包含“11”。
%e a(2)=22,自22起!等于1124000727777607680000,其中包含“11”,22是满足此条件的最小整数。
%t f[n_]:=块[{k=0,s=ToString[(10^n-1)/9]},而[Length@StringPosition[ToString[k!],s]!=1,j=k++];k] ;f[0]=2;数组[f,12,0](*_Robert G.Wilson v_,2015年2月27日*)
%o(Python 2.7)
%o定义A254042():
%o指数=1
%o k=0
%o f=1
%o u=“1”
%o为True时:
%o sf=str(f)
%o如果u在sf中且u+'1'不在sf内:
%o打印“A254042(“+str(index)+”)=“+stra(k)
%o指数+=1
%o k=0
%o f=1
%o u+=“1”
%o k+=1
%o f*=k
%o返回
%o(PARI)a(n)=k=0;而(k<10^4,d=数字(2*10^(#(数字(k!))+1)+10*k!);对于(j=1,#d-n+1,c=0;对于(i=j,j+n-1,如果(d[i]==1,c++);if(d[i]!=1,c=0;break));如果(c==n&&d[j+n]!=1&&d[j-1]!=1,返回(k));如果(c==n,返回(k));如果(c!=n,k++))
%o代表(n=1,6,打印1(a(n),“,”)\\_Derek Orr_2015年1月29日
%o(PARI)max1s(n)=我的(v=数字(n),r,t);对于(i=1,#v,如果(v[i]==1,t++,r=max(r,t);t=0));最大值(t,r)
%o a(n)=我的(m=0);while(最大1s(m!)=n、 m++);2015年1月30日,查尔斯·格里特豪斯四世
%Y参见A254447、A254448、A25444、A254500、A254501、A254502、A254716、A25471、A252652。
%K nonn,基础,更多
%0、1
%A _Martin Y.Champel_,2015年1月25日
%E a(11)摘自Jon E.Schoenfield_2015年2月22日
%E a(12),a(13)摘自Jon E.Schoenfield_,2015年3月7日,2015年5月8日
%E a(14)-a(15),来自_伯特·多贝拉,2018年10月29日
|