OFFSET
1,2
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
KEYWORD
nonn
AUTHOR
Clark Kimberling, Mar 09 2011
STATUS
approved