A187683 Rank transform of the sequence floor(2n/3); complement of A187683.

1, 2, 4, 5, 7, 8, 9, 11, 13, 14, 15, 17, 18, 20, 22, 23, 24, 26, 27, 28, 30, 31, 33, 35, 36, 37, 39, 40, 42, 43, 44, 46, 47, 48, 50, 52, 53, 55, 56, 57, 59, 61, 62, 64, 65, 66, 68, 70, 71, 72, 74, 75, 76, 78, 79, 81, 83, 84, 85, 87, 88, 90, 91, 92, 94, 96, 97, 99, 100, 101, 103, 105, 106, 108, 109, 110, 112, 113, 114, 116, 118, 119, 120, 122, 123, 125, 127, 128, 129, 131, 132, 133, 135, 136, 138

Offset

1,2

Comments

See A187224.

Links

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

Mathematica

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

Crossrefs

Cf. A187224, A187684.

Sequence in context: A189794 A001951 A039046 * A187351 A026451 A050106

Adjacent sequences: A187680 A187681 A187682 * A187684 A187685 A187686

Keyword

nonn

Author

Clark Kimberling, Mar 12 2011

Status

approved