A187901 Rank transform of the sequence floor((3-sqrt(3))n); complement of A187902.

1, 3, 4, 7, 8, 9, 11, 14, 15, 17, 18, 20, 22, 23, 26, 27, 29, 30, 33, 34, 35, 37, 39, 41, 43, 44, 46, 48, 50, 52, 53, 55, 56, 58, 60, 62, 63, 65, 67, 68, 70, 72, 74, 75, 78, 79, 81, 82, 84, 86, 88, 89, 91, 93, 95, 97, 98, 100, 101, 104, 105, 106, 108, 110, 112, 114, 115, 117, 119, 120, 123, 124, 126, 127, 129, 131, 132, 134, 136, 138, 140, 141, 143

Offset

1,2

Comments

See A187224.

Links

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

Mathematica

r=3-3^(1/2);
seqA = Table[Floor[r*n], {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]] (*A187901*)
Complement[Range[Length[seqA]], limseqU]  (*A187902*)
(*by Peter J. C. Moses, Mar 15 2011*)

Crossrefs

Cf. A187224, A187902.

Sequence in context: A296352 A192052 A187230 * A220487 A110133 A205647

Adjacent sequences: A187898 A187899 A187900 * A187902 A187903 A187904

Keyword

nonn

Author

Clark Kimberling, Mar 15 2011

Status

approved