登录
OEIS由OEIS基金会的许多慷慨捐赠者.

 

标志
提示
(来自的问候整数序列在线百科全书!)
A109671号 a(1)=1;此后,a(2n)=a(n),a(2 n+1)是使|a(2n+1)-a(2n-1)|=a(n)的最小正数。 10

%I#16 2014年1月12日12:33:14

%S 1,1,2,1,1,2,3,1,2,1,1,1,2,2,3,3,6,1,5,2,3,12,1,2,3,6,6,9,1,8,5,

%T 3,2,1,3,4,1,3,2,1,2,1,2,1,2,3,6,3,6,9,3,6,3,6,9,18,1,17,8,9,

%U 5,4,3,1,2,3,1,2,3,5,4,1,1,2,5,2,3,1,2,1,1,1,1,2,3,3,6,9,3

%N a(1)=1;此后,a(2n)=a(n),a(2 n+1)是使|a(2n+1)-a(2n-1)|=a(n)的最小正数。

%C半斐波那契数列A030067的变体。

%C自描述:奇数项之间绝对差异的序列就是序列本身。

%C记录值似乎形成序列A038754,并出现在形式2^k-1的索引处。-_N.J.A.Sloane,2010年5月2日

%C序列是否包含所有正整数(参见A169741)?

%H N.J.A.Sloane,N的表格,N=1..10000的A(N)</a>

%pf:=proc(n)选项记忆;局部t1;

%p如果n=1,则为1

%p elif n mod 2=0,则f(n/2)

%p其他t1:=f(n-2)-f((n-1)/2);

%p如果t1>0,则t1否则f(n-2)+f((n-1)/2)fi-fi结束;

%ta[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命名*)

%o(哈斯克尔)

%o导入数据。列表(转置)

%o a109671 n=a109671_list!!(n-1)

%o a109671_list=concat(转置[1:f 1 a109671_list,a109672_list])

%o其中f u(v:vs)=y:f y vs其中

%o y=如果u>v,则u-v,否则u+v

%o——Reinhard Zumkeller,2013年7月7日

%Y A030067的变体。参见A169741-A169745。

%K nonn很好

%氧1,3

%A _Eric Angelini,2010年4月30日

%E编辑:N.J.A.Sloane,2010年5月2日

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

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

上次修改时间:美国东部夏令时2024年3月28日14:13。包含371254个序列。(在oeis4上运行。)