|
|
|
|
#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号作为一个 二元的数字串一1和二2.则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日
|
| 状态
|
经核准的
|
|
|
|