A187568 Rank transform of the sequence round(2n/3); complement of A187569.

1, 2, 4, 6, 7, 8, 10, 11, 12, 14, 15, 17, 19, 20, 21, 23, 24, 26, 28, 29, 30, 32, 33, 35, 36, 37, 39, 40, 41, 43, 45, 46, 48, 49, 50, 52, 54, 55, 56, 58, 59, 60, 62, 63, 65, 67, 68, 69, 71, 72, 74, 75, 76, 78, 80, 81, 83, 84, 85, 87, 89, 90, 92, 93, 94, 96, 97, 98, 100, 102, 103, 104, 106, 107, 109, 111, 112, 113, 115, 116, 117, 119, 120, 122, 124, 125, 126, 128, 129, 131, 133

Offset

1,2

Comments

See. A187224.

Links

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

Mathematica

seqA=Table[Round[2n/3], {n, 1, 220}]  (*A004396*)
seqB=Table[n, {n, 1, 220}];  (*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]] (*A187568*)
Complement[Range[Length[seqA]], limseqU]  (*A187569*)
(*by Peter J. C. Moses, Mar 11 2011*)

Crossrefs

Cf. A187224, A187569.

Sequence in context: A183858 A135673 A285667 * A187228 A187905 A121538

Adjacent sequences: A187565 A187566 A187567 * A187569 A187570 A187571

Keyword

nonn

Author

Clark Kimberling, Mar 11 2011

Status

approved