A187413 Rank transform of the lower Wythoff sequence; complement of A187414.

1, 3, 5, 7, 9, 10, 13, 14, 16, 18, 20, 22, 24, 25, 27, 29, 31, 33, 35, 37, 38, 40, 42, 44, 46, 48, 50, 52, 53, 55, 57, 59, 61, 63, 65, 67, 68, 70, 72, 74, 76, 77, 80, 82, 83, 85, 87, 89, 91, 92, 94, 97, 98, 100, 102, 104, 106, 108, 110, 111, 113, 115, 117, 119, 121, 122, 124, 126, 128, 130, 132, 134, 136, 137, 139, 141, 143, 145, 147, 149, 151, 152, 154

Offset

1,2

Comments

See A187224.

Links

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

Example

See A187224.

Mathematica

m = (1+5^(1/2))/2;
seqA = Table[Floor[m*n], {n, 1, 180}]  (* A000201 *)
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]]                      (* A187413 *)
Complement[Range[Length[seqA]], limseqU]  (* A187414 *)
(* by _Peter J. C. Moses, Mar 09 2011 *)

Crossrefs

Cf. A000201, A187224, A187414.

Sequence in context: A080207 A348017 A187347 * A091177 A066929 A173909

Adjacent sequences: A187410 A187411 A187412 * A187414 A187415 A187416

Keyword

nonn

Author

Clark Kimberling, Mar 09 2011

Status

approved