A187683 -id:A187683 - cp's OEIS frontend

A187684 Complement of A187683.

3, 6, 10, 12, 16, 19, 21, 25, 29, 32, 34, 38, 41, 45, 49, 51, 54, 58, 60, 63, 67, 69, 73, 77, 80, 82, 86, 89, 93, 95, 98, 102, 104, 107, 111, 115, 117, 121, 124, 126, 130, 134, 137, 141, 143, 146, 150, 154, 156, 159, 163, 165, 168, 172, 174, 178, 182, 185, 187, 191, 194, 198, 200, 203, 207, 211, 213, 217

Offset: 1

Clark Kimberling, Mar 12 2011

nonn

See A187224.

Cf. A197224, A187683.

Mathematica
```
(See A187683.)
```

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

A187684 Complement of A187683.

Views

Author

Keywords

Comments

Crossrefs

Programs

Mathematica