A187687 Rank transform of the sequence floor(5n/3); complement of A187688.

1, 3, 5, 7, 9, 11, 12, 15, 16, 18, 20, 22, 24, 26, 28, 29, 31, 34, 35, 37, 39, 41, 43, 45, 46, 48, 50, 52, 54, 56, 58, 60, 62, 63, 65, 67, 69, 71, 73, 75, 77, 79, 80, 82, 84, 86, 88, 90, 92, 94, 96, 97, 99, 101, 103, 105, 107, 108, 111, 113, 114, 116, 118, 120, 122, 124, 125, 127, 130, 131, 133, 135, 137, 139, 141, 143, 145, 146, 148, 150, 152

Offset

1,2

Comments

See A187224.

Links

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

Mathematica

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

Crossrefs

Cf. A187224, A187688.

Sequence in context: A182765 A246407 A151916 * A056617 A213924 A082655

Adjacent sequences: A187684 A187685 A187686 * A187688 A187689 A187690

Keyword

nonn

Author

Clark Kimberling, Mar 12 2011

Status

approved