This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A187417 #7 Dec 04 2016 19:46:24
%S A187417 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 A187417 45,47,49,51,53,54,56,58,59,61,63,64,67,69,71,73,74,76,78,80,81,83,84,
%U A187417 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 A187417 Rank transform of A003159; complement of A187418.
%C A187417 See A187224 and A003159.
%t A187417 jointRank[{seqA_,seqB_}]:={Flatten@Position[#1,{_,1}],Flatten@Position[#1,{_,2}]}&[Sort@Flatten[{{#1,1}&/@seqA,{#1,2}&/@seqB},1]]
%t A187417 seqA=DeleteCases[Array[#1 Boole[OddQ[Length[NestWhileList[#1/2&,#1,EvenQ]]]]&,{500}],0]; (*A003159*)
%t A187417 A187417=FixedPoint[jointRank[{seqA,#1[[1]]}]&,jointRank[{seqA,{}}]][[1]]
%t A187417 A187418=Complement[Range[Max[#]],#]&[FixedPoint[jointRank[{seqA,#1[[1]]}]&,jointRank[{seqA,{}}]][[1]]]
%t A187417 (* by _Peter J. C. Moses_, Mar 10 2011 *)
%Y A187417 Cf. A187224, A003159, A187418.
%K A187417 nonn
%O A187417 1,2
%A A187417 _Clark Kimberling_, Mar 09 2011