A187580 Rank transform of the sequence 2*floor(n/2); complement of A187581.

1, 3, 4, 6, 7, 9, 10, 13, 14, 16, 17, 19, 20, 22, 23, 25, 26, 29, 30, 32, 33, 35, 36, 39, 40, 42, 43, 45, 46, 48, 49, 51, 52, 55, 56, 58, 59, 61, 62, 64, 65, 67, 68, 71, 72, 74, 75, 77, 78, 81, 82, 84, 85, 87, 88, 90, 91, 93, 94, 97, 98, 100, 101, 103, 104, 107, 108, 110, 111, 113, 114, 116, 117, 119, 120, 123, 124, 126, 127, 129, 130, 132, 133, 135

Offset

1,2

Comments

See A187224.

Links

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

Mathematica

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

Crossrefs

Cf. A187224, A187579.

Sequence in context: A140758 A292987 A352719 * A094178 A085795 A068675

Adjacent sequences: A187577 A187578 A187579 * A187581 A187582 A187583

Keyword

nonn

Author

Clark Kimberling, Mar 11 2011

Status

approved