A187476 -id:A187476 - cp's OEIS frontend

A187477 Complement of A187476.

3, 4, 7, 9, 11, 14, 16, 18, 20, 22, 25, 27, 29, 31, 33, 36, 38, 40, 43, 44, 47, 49, 51, 53, 56, 58, 60, 62, 65, 67, 69, 71, 73, 76, 78, 80, 82, 84, 87, 89, 91, 93, 95, 98, 100, 102, 105, 106, 109, 111, 113, 116, 118, 120, 122, 124, 127, 128, 131, 133, 135, 138

Offset: 1

Clark Kimberling, Mar 10 2011

nonn

See A187224.

Cf. A187224, A187476.

Mathematica
```
(See A187476.)
```

A187478 Rank transform of the sequence floor(3(n-2)/2); complement of A187479.

Original entry on oeis.org

1, 2, 3, 6, 8, 9, 11, 13, 15, 17, 18, 20, 22, 24, 26, 28, 29, 31, 33, 35, 36, 39, 40, 42, 44, 46, 48, 49, 51, 53, 55, 57, 58, 60, 62, 64, 66, 68, 69, 71, 73, 75, 77, 79, 80, 82, 84, 86, 88, 90, 91, 93, 95, 97, 98, 101, 102, 104, 106, 108, 109, 111, 113, 115, 117, 119, 120

Offset: 1

Clark Kimberling, Mar 10 2011

nonn

See A187224. Although the first term of floor(3(n-2)/2) is negative, we can replace it by 0 without affecting the same joint rankings; thus, the procedure described at A187224 applies.

Cf. A187422, A187476, A187479.

seqA = Table[Floor[3(n-2)/2], {n, 1, 180}]
  seqB = Table[n, {n, 1, 80}];        (* 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]]                                     (* A187478 *)
Complement[Range[Length[seqA]], limseqU]  (* A187479 *)
(* by Peter J. C. Moses, Mar 10 2011 *)

cp's OEIS Frontend

A187477 Complement of A187476.

Views

Author

Keywords

Comments

Crossrefs

Programs

Mathematica