A187685 Rank transform of the sequence floor(4n/3); complement of A187686.

1, 3, 5, 6, 8, 10, 12, 13, 15, 17, 19, 21, 22, 24, 26, 27, 29, 31, 33, 34, 37, 38, 40, 42, 43, 45, 47, 48, 50, 52, 54, 55, 58, 59, 61, 63, 65, 66, 68, 70, 71, 74, 75, 76, 79, 80, 82, 84, 85, 87, 89, 91, 92, 95, 96, 97, 100, 102, 103, 105, 107, 108, 110, 112, 114, 116, 117, 119, 121, 123, 124, 126, 128, 130, 131, 133, 134, 137, 138, 140, 142, 144

Offset: 1

Author

Clark Kimberling, Mar 12 2011

Keywords

• nonn

Comments

See A187224.

Crossrefs

Cf. A187224, A187686.

Programs

Mathematica

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