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,2

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.

Links

Table of n, a(n) for n=1..67.

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 *)

Crossrefs

Cf. A187422, A187476, A187479.

Sequence in context: A093510 A202341 A013948 * A269860 A013952 A105042

Adjacent sequences: A187475 A187476 A187477 * A187479 A187480 A187481

Keyword

nonn

Author

Clark Kimberling, Mar 10 2011

Status

approved