A187482 Rank transform of the sequence ceiling(2n/3); complement of A187483.

1, 3, 4, 5, 7, 8, 10, 12, 13, 14, 16, 17, 19, 20, 21, 23, 24, 25, 27, 29, 30, 32, 33, 34, 36, 38, 39, 40, 42, 43, 45, 47, 48, 49, 51, 52, 54, 56, 57, 58, 60, 61, 62, 64, 65, 67, 68, 69, 71, 73, 74, 76, 77, 78, 80, 81, 82, 84, 86, 87, 89, 90, 91, 93, 95, 96, 97, 99, 100, 101, 103, 104, 106, 108, 109, 110, 112, 113, 115, 116, 117, 119, 120, 121, 123, 125, 126, 128, 129, 130, 132

Offset

1,2

Comments

See A187224. A187482 is the rank transform of (A004523 with initial zeros removed).

Is this a duplicate of A026347?

Links

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

Mathematica

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

Crossrefs

Cf. A187224, A187483.

Sequence in context: A267650 A270102 A026347 * A285950 A187689 A137292

Adjacent sequences: A187479 A187480 A187481 * A187483 A187484 A187485

Keyword

nonn

Author

Clark Kimberling, Mar 10 2011

Status

approved