cp's OEIS Frontend

A187480 Rank transform of the sequence round(n/2); complement of A187481.

%I A187480 #6 Dec 04 2016 19:46:24
%S A187480 1,2,4,5,6,8,9,10,11,13,15,16,17,19,20,21,22,24,26,27,28,30,32,33,34,
%T A187480 35,37,38,39,40,42,43,44,46,48,49,50,51,53,54,55,57,59,60,61,63,64,65,
%U A187480 66,68,69,70,71,73,75,76,77,79,80,81,82,84,85,86,87,89,91,92,93,95,97,98,99,100,102,103,104,106,108,109,110,112,113,114,115,117,119,120,121,123,124,125
%N A187480 Rank transform of the sequence round(n/2); complement of A187481.
%C A187480 See A187224.  A187480 is the rank transform of (A004525 with initial two zeros removed).
%t A187480 seqA = Table[Round[n/2], {n, 1, 180}]  (* A004524 *)
%t A187480 seqB = Table[n, {n, 1, 80}];           (* A000027 *)
%t A187480 jointRank[{seqA_, seqB_}] := {Flatten@Position[#1, {_, 1}],
%t A187480 Flatten@Position[#1, {_, 2}]} &[Sort@Flatten[{{#1, 1} & /@ seqA,
%t A187480 {#1, 2} & /@ seqB}, 1]];
%t A187480 limseqU = FixedPoint[jointRank[{seqA, #1[[1]]}] &, jointRank[{seqA, seqB}]][[1]]                                     (* A187480 *)
%t A187480 Complement[Range[Length[seqA]], limseqU]  (* A187481 *)
%t A187480 (* by _Peter J. C. Moses_, Mar 10 2011 *)
%Y A187480 Cf. A187224, A187481, A004524.
%K A187480 nonn
%O A187480 1,2
%A A187480 _Clark Kimberling_, Mar 10 2011