%I#11 2015年12月19日16:10:30

%S 1,2,3,4,6,5,10,13,17,7,25,30,36,42,8,54,61,69,78,9,11104115126，

%电话：138150163,14189203218233249265,12,18315333352371391411，

%电话：432453.21496519542566590615640666692,26,15771799828857887

%N序列A014631的逆置换。

%H Reinhard Zumkeller，n的表，n=1..1000的a（n）</a>

%t lst={1}；t=压扁[表[二项式[n，m]，{n，16}，{m，Floor[n/2]}]；Do[If[！MemberQ[lst，t[[n]]]，AppendTo[lst，长度@t}]; 扁平@桌子[位置[lst，n]，{n，61}]（*_Robert G.Wilson v_*）

%o（哈斯克尔）

%o导入数据。列表（elemIndex）；导入数据。也许（来自Just）

%o a119629=（+1）。来自Just。（`elemIndex`a014631_list）

%o--_Reinhard Zumkeller_，2015年12月18日

%Y参考A014631。

%Y参考A265912。

%K nonn公司

%O 1,2号机组

%A _罗伊查询，2006年6月8日

%E更多条款来自Robert G.Wilson v_，2006年6月8日