OEIS哀悼西蒙斯感谢西蒙斯基金会支持包括OEIS在内的许多科学分支的研究。
登录
OEIS由OEIS基金会的许多慷慨捐赠者.

 

标志
提示
(来自的问候整数序列在线百科全书!)

修订历史记录A111372型

(带下划线的文本是附加;删除线文本是删除.)

显示所有更改。
A111372型 考虑中定义的序列A083952号作为数字1和2的字符串。然后,a(n)是每隔一个位置出现n个连续1的第一个开始位置。
(历史;已发布版本)
#10通过拉斯·考克斯2012年3月30日星期五17:31:16 EDT
作者

_罗伯特·威尔逊v(rgwv(相对湿度)(自动变速箱)rgwv(相对湿度).通用域名格式),_,2005年11月8日

扩展

更正和扩展人 _罗伯特·威尔逊v(rgwv(相对湿度)(自动变速箱)rgwv公司.通用域名格式),_,2006年11月27日

讨论
3月30日星期五 17:31
OEIS服务器: https://oeis.org/edit/global/156
#9通过N.J.A.斯隆2011年10月3日星期一10:10:50 EDT
名称

考虑中定义的序列A083952号作为字符串数字1和2。然后,a(n)是每隔一个位置第一次出现n个连续1的开始位置。

关键词

非n,改变

非n

状态

提出

经核准的

#8通过阿尔卡迪乌斯·韦索洛夫斯基2011年10月3日星期一09:13:17 EDT
状态

编辑

提出

#7通过阿尔卡迪乌斯·韦索洛夫斯基2011年10月3日星期一09:12:52 EDT
名称

考虑中定义的序列A083952号作为字符串价值1和2。然后,a(n)是每隔一个位置出现n个连续1的第一个开始位置。

状态

提出

编辑

#6通过富兰克林·T·亚当斯-沃特斯2011年10月2日星期日16:02:38 EDT
状态

编辑

提出

#5通过富兰克林·T·亚当斯-沃特斯美国东部时间2011年10月2日星期日16:02:34
名称

考虑中定义的序列A083952号作为字符串数字价值1和2。然后,a(n)是每隔一个位置出现n个连续1的第一个开始位置。

状态

经核准的

编辑

#4通过N.J.A.斯隆2007年5月11日星期五美国东部夏令时03:00:00
关键词

非n,新的

非n

扩展

更正和扩展人 罗伯特 G公司.威尔逊 RGWv公司, (v(v)(rgwv(AT)rgwv.com),2006年11月27日

#3个通过N.J.A.斯隆2007年1月12日星期五东部标准时间03:00:00
名称

考虑中定义的序列A083952号作为一个 二元的数字串12.则a(n)是n个连续出现的第一个事件的开始位置1'在其他位置。

抵消

0,21

关键词

非n,新的

非n

#2通过N.J.A.斯隆2006年12月6日星期三美国东部标准时间03:00:00
数据

16,0,198,199170,171384,385992,993542,543648,649762,7635070

示例

a(0)=6,因为A083952号(6) 是孤立的1,

a(1)=0,因为A083952号(0) =A083952号(2) =1,但A083952号(4) =2,

a(2)=198,因为A083952号(198) =A083952号(200) =A083952号(202)=1,但A083952号(196) =A083952号(204)=2等。

数学

[0] =1;一个[n个_]:=一个[n个]=块[{k个=1,s=总和[a[i]*x^i,{i,0,n个- 1}]},While期间如果[整数Q[@最后[@系数列表[系列[([平方米[秒+k个*x个^)^(1/2), {n个]{x、 0,n个}],x个]]] !=真的],1,k个++ ];k个];2]];t吨=压扁[职位[工会@[如果【a】[n个] ==1,n个,0],{n,0,4150}],1]];5506}];f[n_]:=块[{k=n,m=2},如果[n==1,10,而[m<长度[] &&@t吨&&t吨[[米-1]]+2==t吨[[米]||t吨[[m]]+2k=t吨[[m+k]]||t吨[[m+k]]+2==t吨[[m+k+1]],m++];如果[m<长度[] -@t吨-k、,t吨[[m]],0]]];表[f[n],{n,0,89}]

扩展

由RGWv修正和扩展,(RGWv(AT)RGWv.com),2006年11月27日

#1通过N.J.A.斯隆2006年1月24日星期二美国东部标准时间03:00:00
名称

考虑中定义的序列A083952号作为数字1和数字2的二进制字符串。然后,a(n)是每隔一个位置出现n个连续的第一次的开始位置。

数据

1, 199, 171, 385, 993, 543, 649, 763

抵消

0,2

数学

a[0]=1;a[l]:=a[l]=块[{k=1,s=Sum[a[i]*x^i,{i,0,l-1}]},而[IntegerQ[Last[CoefficientList[Series[(s+k*x^l)^(1/2),{x,0,l}],x]]]!=正确,k++];k] ;p=压扁[位置[表[a[n],{n,04150}],1];f[n_]:=块[{k=n,m=2},如果[n==1,1,而[m<长度[p]&&p[[m-1]]+2==p[[m]]|p[[m]]+2k!=p[[m+k]]||p[[m+k]]+2==p[[m+k+1]],m++];如果[m<长度[p]-k,p[[m]],0]]];表[f[n],{n,8}]

交叉参考

囊性纤维变性。A083952号,A111363型.

关键词

非n

作者

Robert G.Wilson v(rgwv(AT)rgwv.com),2005年11月8日

状态

经核准的

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

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

上次修改时间:2024年6月9日05:56 EDT。包含373227个序列。(在oeis4上运行。)