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,2

Comments

See A187224 and A003159.

Links

Table of n, a(n) for n=1..77.

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 *)

Crossrefs

Cf. A187224, A003159, A187418.

Sequence in context: A126590 A140584 A085705 * A072716 A167384 A112649

Adjacent sequences: A187414 A187415 A187416 * A187418 A187419 A187420

Keyword

nonn

Author

Clark Kimberling, Mar 09 2011

Status

approved