A187687 -id:A187687 - cp's OEIS frontend

A187688 Complement of A187687.

2, 4, 6, 8, 10, 13, 14, 17, 19, 21, 23, 25, 27, 30, 32, 33, 36, 38, 40, 42, 44, 47, 49, 51, 53, 55, 57, 59, 61, 64, 66, 68, 70, 72, 74, 76, 78, 81, 83, 85, 87, 89, 91, 93, 95, 98, 100, 102, 104, 106, 109, 110, 112, 115, 117, 119, 121, 123, 126, 128, 129, 132, 134, 136, 138, 140, 142, 144, 147, 149, 151, 153, 155, 157, 160, 162, 164, 166, 168, 170

Offset: 1

Clark Kimberling, Mar 12 2011

nonn

See A187224.

Cf. A187224, A187687.

Mathematica
```
(See A187687.)
```

A187681 Rank transform of the sequence floor(n/3); complement of A187682.

Original entry on oeis.org

1, 2, 3, 4, 5, 7, 8, 9, 11, 12, 13, 15, 16, 17, 19, 20, 21, 23, 24, 25, 26, 27, 28, 30, 31, 32, 34, 35, 36, 38, 39, 40, 41, 42, 43, 45, 46, 47, 49, 50, 51, 53, 54, 55, 56, 57, 58, 60, 61, 62, 64, 65, 66, 68, 69, 70, 71, 72, 73, 75, 76, 77, 79, 80, 81, 83, 84, 85, 86, 87, 88, 90, 91, 92, 94, 95, 96, 98, 99, 100, 102, 103, 104, 106, 107, 108, 110, 111, 112, 113, 114, 115, 117, 118, 119, 121, 122

Offset: 1

Clark Kimberling, Mar 12 2011

nonn

See A187224.

Cf. A187224, A187682, A187683, A187685, A187687.

seqA = Table[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]] (*A187681*)
Complement[Range[Length[seqA]], limseqU]  (*A187682*)
(*by Peter J. C. Moses, Mar 12 2011*)

cp's OEIS Frontend

A187688 Complement of A187687.

Views

Author

Keywords

Comments

Crossrefs

Programs

Mathematica