A187685 -id:A187685 - cp's OEIS frontend

A187686 Complement of A187685.

2, 4, 7, 9, 11, 14, 16, 18, 20, 23, 25, 28, 30, 32, 35, 36, 39, 41, 44, 46, 49, 51, 53, 56, 57, 60, 62, 64, 67, 69, 72, 73, 77, 78, 81, 83, 86, 88, 90, 93, 94, 98, 99, 101, 104, 106, 109, 111, 113, 115, 118, 120, 122, 125, 127, 129, 132, 135, 136, 139, 141, 143, 146, 148, 151, 153, 155, 157, 160, 162, 164, 167, 169

Offset: 1

Clark Kimberling, Mar 12 2011

nonn

See A187224.

Cf. A187224, A187685.

Mathematica
```
(See A187685.)
```

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

A187686 Complement of A187685.

Views

Author

Keywords

Comments

Crossrefs

Programs

Mathematica