A187417 - OEIS

%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