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 A187345 #12 Feb 10 2014 21:27:14
%S A187345 1,3,5,6,9,10,11,14,16,17,19,20,23,24,27,28,29,32,33,35,37,39,40,42,
%T A187345 44,46,47,49,51,53,55,56,58,60,62,64,65,67,69,71,73,74,76,78,80,81,83,
%U A187345 85,87,89,90,92,94,96,98,99,101,103,105,107,108,110,112,113,116,117,119
%N A187345 Rank transform of the sequence floor(7n/5); complement of A187346.
%t A187345 seqA=Table[Floor[7n/5], {n, 1, 220}] (* A047381 *)
%t A187345 seqB=Table[n, {n, 1, 220}]; (* A000027 *)
%t A187345 jointRank[{seqA_, seqB_}]:={Flatten@Position[#1, {_, 1}], Flatten@Position[#1, {_, 2}]}&[Sort@Flatten[{{#1, 1}&/@seqA, {#1, 2}&/@seqB}, 1]];
%t A187345 limseqU=FixedPoint[jointRank[{seqA, #1[[1]]}]&, jointRank[{seqA, seqB}]][[1]] (* A187345 *)
%t A187345 Complement[Range[Length[seqA]], limseqU] (* A187346 *)
%t A187345 (*by _Peter J. C. Moses_, Mar 07 2011*)
%Y A187345 Cf. A187224, A187346.
%K A187345 nonn
%O A187345 1,2
%A A187345 _Clark Kimberling_, Mar 08 2011