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

Comments

See A187224.

Links

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

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

Crossrefs

Cf A187224, A187477.

Sequence in context: A320730 A087943 A034020 * A121411 A224889 A363676

Adjacent sequences: A187473 A187474 A187475 * A187477 A187478 A187479

Keyword

nonn

Author

Clark Kimberling, Mar 10 2011

Status

approved