%I#19 2015年5月13日15:56:27
%S 1,2,-1,3,4,-5,6,-4,5,-3,7,-8,9,-2,8,-10,11,-6,10,-14,12,-7,13,-12,14,
%电话-13,15,-11,16,-19,17,-9,18,-21,19,-17,20,-18,21,-15,22,-26,23,-16,24,
%铀-29,25、-22,27、-23,26、-25,28、-27,29、-28,30、-24,31、-35,32、33、-62,34、-31,35、-34,36、-39,38、-32,39、-42,40、-36
%N a(N)=A175498(N+1)-A175498(N)。
%C根据定义,这个序列中没有一个整数出现多次。这个序列是非零整数的排列吗?
%H Chai Wah Wu,n的表,n的a(n)=1..4999</a>
%ta[1]=0;d[1]=1;k=1;z=10000;zz=120;
%tA[k_]:=表[A[i],{i,1,k}];diff[k_]:=表[d[i],{i,1,k}];
%t c[k_]:=补码[Range[-z,z],diff[k]];
%t t[k_]:=-a[k]+补码[范围[z],a[k]]
%t表[{h=Min[交集[c[k],t[k]]],a[k+1]=a[k]+h,
%td[k+1]=h,k=k+1},{i,1,zz}];
%t u=表格[a[k],{k,1,zz}](*A257884*)
%t表格[d[k],{k,1,zz}](*A175499*)
%t(*_百灵金伯利,2015年5月13日*)
%o(Python)
%o A175499_列表,l,s,b=[1],2,3,set()
%o表示范围(2,10**2)中的n:
%o。。。。i、 j=秒,s-l
%o。。。。为True时:
%o。。。。。。。。如果不是(A175499_list中b或j中的i):
%o。。。。。。。。。。。。A175499_列表.append(j)
%o。。。。。。。。。。。。b.添加(i)
%o。。。。。。。。。。。。l=i
%o。。。。。。。。。。。。而s在b中:
%o。。。。。。。。。。。。。。。。b.删除
%o。。。。。。。。。。。。。。。。s+=1
%o。。。。。。。。。。。。打破
%o。。。。。。。。i+=1
%o。。。。。。。。j+=1#_Chai Wah Wu_,2014年12月15日
%o(哈斯克尔)
%o a175499 n=a175499_list!!(n-1)
%o a175499_list=zipWith(-)(尾部a175498_list)a175498 _ list
%o——Reinhard Zumkeller,2015年4月25日
%Y参见A175498、A257884、A131389。
%K符号
%O 1,2号机组
%A _罗伊查询,2010年5月31日
%E更多条款,来自Sean A.Irvine_,2011年1月27日
|