A187578 Rank transform of the sequence 3*floor(n/3); complement of A187579.

1, 2, 5, 6, 7, 9, 10, 11, 14, 15, 16, 20, 21, 22, 24, 25, 26, 29, 30, 31, 33, 34, 35, 38, 39, 40, 44, 45, 46, 48, 49, 50, 53, 54, 55, 59, 60, 61, 63, 64, 65, 68, 69, 70, 72, 73, 74, 77, 78, 79, 83, 84, 85, 87, 88, 89, 92, 93, 94, 96, 97, 98, 101, 102, 103, 107, 108, 109, 111, 112, 113, 116, 117, 118, 122, 123, 124, 126, 127, 128, 131, 132, 133, 135, 136, 137, 140, 141, 142, 146

Offset

1,2

Comments

See A187224.

Links

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

Mathematica

seqA = Table[3*Floor[n/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]] (*A187578*)
Complement[Range[Length[seqA]], limseqU]  (*A187579*)
(*by Peter J. C. Moses, Mar 11 2011*)

Crossrefs

Cf. A187224, A187579.

Sequence in context: A188218 A050103 A303437 * A193260 A161539 A177859

Adjacent sequences: A187575 A187576 A187577 * A187579 A187580 A187581

Keyword

nonn

Author

Clark Kimberling, Mar 11 2011

Status

approved