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

1, 2, 5, 6, 8, 10, 12, 13, 15, 17, 19, 21, 23, 24, 26, 28, 30, 32, 34, 35, 37, 39, 41, 42, 45, 46, 48, 50, 52, 54, 55, 57, 59, 61, 63, 64, 66, 68, 70, 72, 74, 75, 77, 79, 81, 83, 85, 86, 88, 90, 92, 94, 96, 97, 99, 101, 103, 104, 107, 108, 110, 112, 114, 115, 117, 119

Offset: 1

Author

Clark Kimberling, Mar 10 2011

Keywords

• nonn

Comments

See A187224.

Crossrefs

Cf A187224, A187477.

Programs

Mathematica

seqA = Table[Floor[3(n-1)/2], {n, 1, 180}]  (* A032766 *)
seqB = Table[n, {n, 1, 80}];           (* A000027 *)
jointRank[{seqA_, seqB_}] := {Flatten@Position[#1, {_, 1}],
Flatten@Position[#1, {_, 2}]} &[Sort@Flatten[{{#1, 1} & /@ seqA,
{#1, 2} & /@ seqB}, 1]];
limseqU = FixedPoint[jointRank[{seqA, #1[[1]]}] &, jointRank[{seqA, seqB}]][[1]]                                     (* A187476 *)
Complement[Range[Length[seqA]], limseqU]  (* A187477 *)
(* by Peter J. C. Moses, Mar 10 2011 *)