A187480 Rank transform of the sequence round(n/2); complement of A187481.

1, 2, 4, 5, 6, 8, 9, 10, 11, 13, 15, 16, 17, 19, 20, 21, 22, 24, 26, 27, 28, 30, 32, 33, 34, 35, 37, 38, 39, 40, 42, 43, 44, 46, 48, 49, 50, 51, 53, 54, 55, 57, 59, 60, 61, 63, 64, 65, 66, 68, 69, 70, 71, 73, 75, 76, 77, 79, 80, 81, 82, 84, 85, 86, 87, 89, 91, 92, 93, 95, 97, 98, 99, 100, 102, 103, 104, 106, 108, 109, 110, 112, 113, 114, 115, 117, 119, 120, 121, 123, 124, 125

Offset

1,2

Comments

See A187224. A187480 is the rank transform of (A004525 with initial two zeros removed).

Links

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

Mathematica

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

Crossrefs

Cf. A187224, A187481, A004524.

Sequence in context: A141204 A160992 A096997 * A081694 A355890 A145395

Adjacent sequences: A187477 A187478 A187479 * A187481 A187482 A187483

Keyword

nonn

Author

Clark Kimberling, Mar 10 2011

Status

approved