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 A187232 #11 Feb 10 2014 21:27:35
%S A187232 1,3,5,7,9,11,13,15,16,19,20,23,24,26,28,30,32,34,36,38,39,41,44,46,
%T A187232 47,49,51,53,55,57,59,61,62,64,66,69,70,72,74,76,78,80,82,84,85,87,89,
%U A187232 91,93,95,97,99,101,103,105,107,108,110,112,114,116,118,120,122,124,126,128,130,131,133,135,137,139,141,143,145,147,149,151,153,154,156,158,160,162,164,166,168,170,172,174,176,177,179,181,183
%N A187232 Rank transform of the sequence floor(7n/4); complement of A187233.
%C A187232 See A187224. A187232(n)=A187907(n) for n=1,2,...,20; A187232(21)=39 and A187907(21)=40.
%t A187232 seqA=Table[Floor[7n/4],{n,1,220}] (*A047392*)
%t A187232 seqB=Table[n,{n,1,220}];(*A000027*)
%t A187232 jointRank[{seqA_,seqB_}]:={Flatten@Position[#1,{_,1}],Flatten@Position[#1,{_,2}]}&[Sort@Flatten[{{#1,1}&/@seqA,{#1,2}&/@seqB},1]];
%t A187232 limseqU=FixedPoint[jointRank[{seqA,#1[[1]]}]&,jointRank[{seqA,seqB}]][[1]] (*A187232*)
%t A187232 Complement[Range[Length[seqA]],limseqU] (*A187233*)
%t A187232 (*by _Peter J. C. Moses_, Mar 07 2011*)
%Y A187232 Cf. A187224, A187233.
%K A187232 nonn
%O A187232 1,2
%A A187232 _Clark Kimberling_, Mar 07 2011