A187905 Rank transform of the sequence floor((3-sqrt(5))n); complement of A187906.

1, 2, 4, 6, 7, 8, 10, 11, 12, 14, 16, 18, 19, 20, 22, 24, 25, 27, 28, 30, 31, 32, 34, 35, 37, 38, 40, 42, 43, 44, 46, 47, 49, 50, 52, 53, 55, 57, 58, 59, 61, 63, 64, 66, 67, 69, 70, 72, 73, 75, 76, 78, 79, 81, 82, 83, 85, 87, 89, 90, 91, 93, 95, 96, 97, 99, 101, 102, 103, 105, 107, 108, 109, 111, 112, 114, 115, 117, 119, 120, 121, 123, 124, 126

Offset

1,2

Comments

See A187224.

Links

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

Mathematica

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

Crossrefs

Cf. A187224, A187906.

Sequence in context: A285667 A187568 A187228 * A121538 A339508 A275844

Adjacent sequences: A187902 A187903 A187904 * A187906 A187907 A187908

Keyword

nonn

Author

Clark Kimberling, Mar 15 2011

Status

approved