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

Author

Clark Kimberling, Mar 10 2011

Keywords

• nonn

Comments

See A187224 and A004526.

Crossrefs

Cf. A187422, A187485, A004526.

Programs

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 *)