(Sage)#L.Seidel的算法(1877)
A={-1:0,0:1};R=[]
k=0;e=1;Bm=1
对于范围(n)内的i:
Am=百万
A[k+e]=0
e=-e
对于(0..i)中的j:
Am+=A[k]
A[k]=美国
k+=e
Bm+=Bm
R追加(A[e*i//2]/2)
返回R
(哈斯克尔)
a000734 n=总和$zipWith(*)(a109449_row n)(1:a000079_list)
(Python)
从itertools导入count、accumpt、islice
产量1
blist,m=(1,),1
而True为真:
产量(blist:=元组(累加(反向(blist),初始=m))[-1]
m*=2