A187582 Rank transform of the sequence 3*floor(n/2); complement of A187583.

1, 3, 4, 7, 8, 11, 12, 14, 15, 18, 19, 21, 22, 25, 26, 29, 30, 33, 34, 36, 37, 39, 40, 43, 44, 47, 48, 51, 52, 55, 56, 58, 59, 61, 62, 65, 66, 69, 70, 73, 74, 77, 78, 80, 81, 83, 84, 87, 88, 91, 92, 94, 95, 98, 99, 102, 103, 105, 106, 109, 110, 113, 114, 117, 118, 120, 121, 123, 124, 127, 128, 131, 132, 135, 136, 138, 139, 141, 142, 145, 146, 149, 150, 153, 154, 157, 158, 160, 161

Offset

1,2

Comments

See A187224.

Links

Table of n, a(n) for n=1..89.

Mathematica

seqA = Table[3*Floor[n/2], {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]] (*A187582*)
Complement[Range[Length[seqA]], limseqU]  (*A187583*)
(*by Peter J. C. Moses, Mar 11 2011*)

Crossrefs

Cf. A187224, A187583.

Sequence in context: A332059 A229081 A070874 * A288553 A295771 A285503

Adjacent sequences: A187579 A187580 A187581 * A187583 A187584 A187585

Keyword

nonn

Author

Clark Kimberling, Mar 11 2011

Status

approved