%I#8 2016年12月4日19:46:24

%S 1,2,3,4,6,7,9,10,12,13,15,16,17,18,20,21,23,24,25,26,28,29,31,32,33，

%电话：34,36,37,39,40,41,42,44,45,47,48,50,51,53,54,55,56,58,59,61,62,63,64，

%U 66、67、69、70、72、73、75、76、77、78、80、81、83、84、85、86、88、89、91、92、94、95、97、98、99100102103106108110111113114116119120121122125128129130单位

%序列A004526的N秩变换=（0,0,1,1,2,3,4,4，…）；补充A187475。

%C见A187224和A004526。

%t seqA=表格[楼层[（n-1）/2]，{n，1，180}]（*A004526*）

%t seqB=表[n，{n，1，80}]；（*A000027*）

%t jointRank〔｛seqA_，seqB_｝〕：={压扁@位置[#1, {_, 1}],

%t吨压扁@位置[#1, {_, 2}]} &[排序@扁平[{{#1，1}和/@seqA，

%t{#1,2}和/@seqB}，1]]；

%t limseqU=固定点[jointRank[{seqA，#1[[1]]}]&，jointRank[{sequeA，seqB}]][1]（*A187484*）

%t补码[Range[Length[seqA]]，limseqU]（*A187475*）

%t（*作者：Peter J.C.Moses，2011年3月10日*）

%Y参见A187422、A187485、A004526。

%K nonn公司

%O 1,2号机组

%2011年3月10日，金伯利百灵