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 A187230 #10 Feb 10 2014 21:27:46
%S A187230 1,3,4,7,8,9,11,14,15,17,18,20,22,23,25,27,29,30,32,34,36,37,39,41,43,
%T A187230 44,46,48,49,51,53,55,56,58,59,62,63,65,66,69,70,72,73,75,77,79,80,83,
%U A187230 84,85,87,89,91,93,94,96,98,99,101,103,105,106,108,110,112,113,114,117,119,120,122,124,125,127,128,131,132,134,135,138,139,141,142,144,146,148,149,151,153,154,156,159,160,161,163,165
%N A187230 Rank transform of the sequence floor(5n/4); complement of A187231.
%C A187230 See A187224.
%t A187230 seqA=Table[Floor[5n/4],{n,1,220}] (*A001068*)
%t A187230 seqB=Table[n,{n,1,220}];(*A000027*)
%t A187230 jointRank[{seqA_,seqB_}]:={Flatten@Position[#1,{_,1}],Flatten@Position[#1,{_,2}]}&[Sort@Flatten[{{#1,1}&/@seqA,{#1,2}&/@seqB},1]];
%t A187230 limseqU=FixedPoint[jointRank[{seqA,#1[[1]]}]&,jointRank[{seqA,seqB}]][[1]] (*A187230*)
%t A187230 Complement[Range[Length[seqA]],limseqU] (*A187231*)
%t A187230 (*by _Peter J. C. Moses_, Mar 07 2011*)
%Y A187230 Cf. A187224, A187231.
%K A187230 nonn
%O A187230 1,2
%A A187230 _Clark Kimberling_, Mar 07 2011