|
|
|
|
| A109671号
|
| a（1）=1；此后，a（2n）=a（n），a（2 n+1）是使|a（2n+1）-a（2n-1）|=a（n）的最小正数。
(历史;已发布版本)
|
|
|
|
|
#16通过N.J.A.斯隆美国东部时间2014年1月12日星期日12:33:14 |
|
|
|
|
|
|
|
#15通过N.J.A.斯隆2014年1月12日星期日12:32:58 EST |
|
| MAPLE公司
|
f： =proc（n）选项记忆；局部t1；
如果n=1，则返回(1);
elif n mod 2=0，则返回(f（无2));)
否则t1:=f（n-2）-f（（n-1）/2）；
如果t1>0，则返回(时间t1) 其他的返回(f（n-2）+f（n-1）/2));)fi（菲涅耳）; fi（菲涅耳）; 结束；
|
|
| 状态
|
经核准的
编辑
|
|
|
|
|
讨论
|
| 1月12日周日
| 12:33
| N.J.A.斯隆：更新了Maple代码
|
|
|
|
|
|
|
#14通过莱因哈德·祖姆凯勒2013年7月7日星期日16:55:16 EDT |
|
|
|
|
|
|
|
#13通过莱因哈德·祖姆凯勒2013年7月7日星期日16:23:50 EDT |
|
| 黄体脂酮素
|
（哈斯克尔）
导入数据。列表（转置）
a109671 n=a109671_list！！（n-1）
a109671_list=concat（转置[1:f 1 a109671_list，a109671_list]）
其中f u（v:vs）=y:f y vs其中
y=如果u>v，则u-v，否则u+v
--莱因哈德·祖姆凯勒2013年7月7日
|
|
| 状态
|
经核准的
编辑
|
|
|
|
|
|
|
#12通过N.J.A.斯隆2013年5月1日星期三21:45:31 EDT |
|
|
|
|
|
|
|
#11通过N.J.A.斯隆2013年5月1日星期三21:45:28 EDT |
|
| 评论
|
记录值似乎形成序列A038754号并以2^k-1的形式出现. -. - _N.J.A.斯隆,垫子_,五月02 2010
|
|
| 状态
|
经核准的
编辑
|
|
|
|
|
|
|
#10通过N.J.A.斯隆2013年5月1日星期三美国东部夏令时21:08:56 |
|
| 扩展
|
编辑人 _N.J.A.斯隆,_,2010年5月2日
|
|
|
|
|
讨论
|
| 5月1日星期三
| 21:08
| OEIS服务器: https://oeis.org/edit/global/1898
|
|
|
|
|
|
|
#9通过布鲁诺·贝塞利2012年11月27日星期二09:50:14 EST |
|
|
|
|
|
|
|
#8通过Jean-François Alcover公司2012年11月27日星期二09:32:16 EST |
|
|
|
|
|
|
|
#7通过Jean-François Alcover公司2012年11月27日星期二09:32:10 EST |
|
| 数学
|
a[1]=1；a[n_？EvenQ]：=a[n/2]；a[n_]：=a[n]=如果[t1=a[n-2]-a[（n-1）/2]；t1>0，t1，a[n-2]+a[（n-1）/2]]；表[a[n]，{n，1，104}](*Jean-François Alcover公司2012年11月27日，Maple之后*）
|
|
| 状态
|
经核准的
编辑
|
|
|
|
|
|
