A187478 Rank transform of the sequence floor(3(n-2)/2); complement of A187479.

1, 2, 3, 6, 8, 9, 11, 13, 15, 17, 18, 20, 22, 24, 26, 28, 29, 31, 33, 35, 36, 39, 40, 42, 44, 46, 48, 49, 51, 53, 55, 57, 58, 60, 62, 64, 66, 68, 69, 71, 73, 75, 77, 79, 80, 82, 84, 86, 88, 90, 91, 93, 95, 97, 98, 101, 102, 104, 106, 108, 109, 111, 113, 115, 117, 119, 120

Offset: 1

Author

Clark Kimberling, Mar 10 2011

Keywords

• nonn

Comments

See A187224. Although the first term of floor(3(n-2)/2) is negative, we can replace it by 0 without affecting the same joint rankings; thus, the procedure described at A187224 applies.

Crossrefs

Cf. A187422, A187476, A187479.

Programs

Mathematica

seqA = Table[Floor[3(n-2)/2], {n, 1, 180}]
  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]]                                     (* A187478 *)
Complement[Range[Length[seqA]], limseqU]  (* A187479 *)
(* by Peter J. C. Moses, Mar 10 2011 *)