%I#26 2023年1月2日12:30:54
%S 0,1,2,3,5,4,7,6,11,8,12,9,16,13,19,10,21,14,22,15,27,17,26,18,34,20,
%电话:33,23,42,25,35,24,45,29,43,28,50,31,46,30,57,32,49,36,62,37,55,38,72,
%U 39,59,40,73,41,64,44,86,51,76,47,82,53,77,48,93,52,81,54,97,56,84,58
%非负整数的最小置换,使得a(N)=a(2n)-a(2n-1)对于所有N>=1。
%C A293976和A033485的变体。
%C定义是指成对术语的差异序列,(a(2n)-a(2n-1);n> =1),等于序列(a(n);n> =1)本身。项a(0)只是正整数置换到所有n>=0的一个非常自然的扩展。
%H Carole Dubois,n表,n=0..1244的a(n)</a>
%H E.Angelini,<a href=“http://list.seqfan.eu/oldermail/seqfan/2010-June/004987.html“>连续称重秤</a>,发布到SeqFan列表,2010年6月14日。
%H E.Angelini,<a href=“http://www.cettedressecoportecinquandesignes.com/Roberval.htm“>称重秤和顺序。
%o(PARI)A293977_vec(n,A=向量(n+1),U=[0])={对于(i=2,n,A[i]&&next;if(位测试(i,0),A[i]=A[i-1]+A[i\2+1],对于(k=U[1]+1,oo,setsearch(U,k)&&next;setsearch(U,k+A[i,2+1])&&next;A[i]=k;break);U=setunion(U,[A[i]);while(#U>1&&U[2]==U[1]+1,U=U[^1]);A}
%Y参见A033485、A293976。
%K nonn公司
%0、3
%A _M.F.Hasler_,2017年10月27日
|