cp's OEIS Frontend

A187476 Rank transform of the sequence floor(3(n-1)/2); complement of A187477.

%I A187476 #8 Dec 26 2023 10:11:23
%S A187476 1,2,5,6,8,10,12,13,15,17,19,21,23,24,26,28,30,32,34,35,37,39,41,42,
%T A187476 45,46,48,50,52,54,55,57,59,61,63,64,66,68,70,72,74,75,77,79,81,83,85,
%U A187476 86,88,90,92,94,96,97,99,101,103,104,107,108,110,112,114,115,117,119
%N A187476 Rank transform of the sequence floor(3(n-1)/2); complement of A187477.
%C A187476 See A187224.
%t A187476 seqA = Table[Floor[3(n-1)/2], {n, 1, 180}]  (* A032766 *)
%t A187476 seqB = Table[n, {n, 1, 80}];           (* A000027 *)
%t A187476 jointRank[{seqA_, seqB_}] := {Flatten@Position[#1, {_, 1}],
%t A187476 Flatten@Position[#1, {_, 2}]} &[Sort@Flatten[{{#1, 1} & /@ seqA,
%t A187476 {#1, 2} & /@ seqB}, 1]];
%t A187476 limseqU = FixedPoint[jointRank[{seqA, #1[[1]]}] &, jointRank[{seqA, seqB}]][[1]]                                     (* A187476 *)
%t A187476 Complement[Range[Length[seqA]], limseqU]  (* A187477 *)
%t A187476 (* by _Peter J. C. Moses_, Mar 10 2011 *)
%Y A187476 Cf A187224, A187477.
%K A187476 nonn
%O A187476 1,2
%A A187476 _Clark Kimberling_, Mar 10 2011