A187417 Rank transform of A003159; complement of A187418.

1, 3, 5, 6, 9, 10, 13, 14, 15, 18, 20, 21, 23, 24, 26, 28, 31, 33, 34, 36, 37, 39, 42, 43, 45, 47, 49, 51, 53, 54, 56, 58, 59, 61, 63, 64, 67, 69, 71, 73, 74, 76, 78, 80, 81, 83, 84, 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

Offset: 1

Author

Clark Kimberling, Mar 09 2011

Keywords

• nonn

Comments

See A187224 and A003159.

Crossrefs

Cf. A187224, A003159, A187418.

Programs

Mathematica

jointRank[{seqA_,seqB_}]:={Flatten@Position[#1,{,1}],Flatten@Position[#1,{,2}]}&[Sort@Flatten[{{#1,1}&/@seqA,{#1,2}&/@seqB},1]]
seqA=DeleteCases[Array[#1 Boole[OddQ[Length[NestWhileList[#1/2&,#1,EvenQ]]]]&,{500}],0]; (*A003159*)
A187417=FixedPoint[jointRank[{seqA,#1[[1]]}]&,jointRank[{seqA,{}}]][[1]]
A187418=Complement[Range[Max[#]],#]&[FixedPoint[jointRank[{seqA,#1[[1]]}]&,jointRank[{seqA,{}}]][[1]]]
(* by Peter J. C. Moses, Mar 10 2011 *)