A187691 Rank transform of the sequence ceiling(3n/4); complement of A187692.

1, 3, 4, 5, 7, 9, 11, 12, 13, 15, 16, 17, 19, 20, 22, 23, 25, 27, 28, 29, 31, 33, 35, 36, 37, 39, 41, 42, 43, 45, 47, 48, 49, 51, 52, 53, 55, 57, 59, 60, 61, 63, 64, 65, 67, 68, 70, 71, 73, 75, 76, 77, 79, 80, 82, 83, 85, 87, 88, 89, 91, 92, 94, 95, 97, 99, 100, 101, 103, 105, 107, 108, 109, 111, 112, 113, 115, 116, 118, 119, 121, 123, 124, 125, 127, 129, 131, 132, 133, 135, 137, 138, 139

Offset

1,2

Comments

See A187224.

Links

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

Mathematica

seqA = Table[Ceiling[3n/4], {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]] (*A187691*)
Complement[Range[Length[seqA]], limseqU]  (*A187692*)
(*by Peter J. C. Moses, Mar 12 2011*)

Crossrefs

Cf. A187224, A187692.

Sequence in context: A260401 A003159 A361924 * A141259 A349165 A047501

Adjacent sequences: A187688 A187689 A187690 * A187692 A187693 A187694

Keyword

nonn

Author

Clark Kimberling, Mar 12 2011

Status

approved