%I #7 Dec 04 2016 19:46:24
%S 1,3,5,6,9,10,13,14,15,18,20,21,23,24,26,28,31,33,34,36,37,39,42,43,
%T 45,47,49,51,53,54,56,58,59,61,63,64,67,69,71,73,74,76,78,80,81,83,84,
%U 86,88,91,92,94,96,97,99,101,103,105,107,109,110,112,114,116,118,120,122,123,125,127,129,131,132,135,136,138,140
%N Rank transform of A003159; complement of A187418.
%C See A187224 and A003159.
%t jointRank[{seqA_,seqB_}]:={Flatten@Position[#1,{_,1}],Flatten@Position[#1,{_,2}]}&[Sort@Flatten[{{#1,1}&/@seqA,{#1,2}&/@seqB},1]]
%t seqA=DeleteCases[Array[#1 Boole[OddQ[Length[NestWhileList[#1/2&,#1,EvenQ]]]]&,{500}],0]; (*A003159*)
%t A187417=FixedPoint[jointRank[{seqA,#1[[1]]}]&,jointRank[{seqA,{}}]][[1]]
%t A187418=Complement[Range[Max[#]],#]&[FixedPoint[jointRank[{seqA,#1[[1]]}]&,jointRank[{seqA,{}}]][[1]]]
%t (* by _Peter J. C. Moses_, Mar 10 2011 *)
%Y Cf. A187224, A003159, A187418.
%K nonn
%O 1,2
%A _Clark Kimberling_, Mar 09 2011