%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日
|