A187484 Rank transform of the sequence A004526=(0,0,1,1,2,2,3,3,4,4,...); complement of A187475.

1, 2, 3, 4, 6, 7, 9, 10, 12, 13, 15, 16, 17, 18, 20, 21, 23, 24, 25, 26, 28, 29, 31, 32, 33, 34, 36, 37, 39, 40, 41, 42, 44, 45, 47, 48, 50, 51, 53, 54, 55, 56, 58, 59, 61, 62, 63, 64, 66, 67, 69, 70, 72, 73, 75, 76, 77, 78, 80, 81, 83, 84, 85, 86, 88, 89, 91, 92, 94, 95, 97, 98, 99, 100, 102, 103, 105, 106, 107, 108, 110, 111, 113, 114, 116, 117, 119, 120, 121, 122, 124, 125, 127, 128, 129, 130

Offset

1,2

Comments

See A187224 and A004526.

Links

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

Mathematica

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

Crossrefs

Cf. A187422, A187485, A004526.

Sequence in context: A292043 A292052 A347624 * A186237 A079057 A211264

Adjacent sequences: A187481 A187482 A187483 * A187485 A187486 A187487

Keyword

nonn

Author

Clark Kimberling, Mar 10 2011

Status

approved