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

Author

Clark Kimberling, Mar 09 2011

Keywords

• nonn

Comments

See A187224.

Examples

			See A187224.
		

Crossrefs

Cf. A000201, A187224, A187414.

Programs

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 *)