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 A187226 #7 Feb 10 2014 21:28:20
%S A187226 1,2,3,4,5,6,7,9,10,11,12,14,15,16,17,19,20,21,22,24,25,26,27,29,30,
%T A187226 31,32,34,35,36,37,39,40,41,42,43,44,45,46,48,49,50,51,53,54,55,56,58,
%U A187226 59,60,61,63,64,65,66,67,68,69,70,72,73,74,75,77,78,79,80,82,83,84,85,87,88,89,90,91,92,93,94,96,97,98,99,101,102,103,104,106,107,108,109,111,112,113,114,115,116,117,118,120,121,122,123,125,126,127,128,130
%N A187226 Rank transform of the sequence floor(n/4); complement of A187227.
%C A187226 See A187224.
%t A187226 seqA=Table[Floor[n/4],{n,1,220}] (*A002265 essentially *)
%t A187226 seqB=Table[n,{n,1,120}];(*A000027*)jointRank[{seqA_,seqB_}]:={Flatten@Position[#1,{_,1}],Flatten@Position[#1,{_,2}]}&[Sort@Flatten[{{#1,1}&/@seqA,{#1,2}&/@seqB},1]];
%t A187226 limseqU=FixedPoint[jointRank[{seqA,#1[[1]]}]&,jointRank[{seqA,seqB}]][[1]] (*A187226*)
%t A187226 Complement[Range[Length[seqA]],limseqU] (*A187227*)
%t A187226 (*by _Peter J. C. Moses_, Mar 07 2011*)
%Y A187226 Cf. A187224, A187227
%K A187226 nonn
%O A187226 1,2
%A A187226 _Clark Kimberling_, Mar 07 2011