cp's OEIS Frontend

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

%I A187413 #9 Feb 10 2014 21:31:45
%S A187413 1,3,5,7,9,10,13,14,16,18,20,22,24,25,27,29,31,33,35,37,38,40,42,44,
%T A187413 46,48,50,52,53,55,57,59,61,63,65,67,68,70,72,74,76,77,80,82,83,85,87,
%U A187413 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
%N A187413 Rank transform of the lower Wythoff sequence; complement of A187414.
%C A187413 See A187224.
%e A187413 See A187224.
%t A187413 m = (1+5^(1/2))/2;
%t A187413 seqA = Table[Floor[m*n], {n, 1, 180}]  (* A000201 *)
%t A187413 seqB = Table[n, {n, 1, 80}];           (* A000027 *)
%t A187413 jointRank[{seqA_, seqB_}] := {Flatten@Position[#1, {_, 1}],
%t A187413 Flatten@Position[#1, {_, 2}]} &[Sort@Flatten[{{#1, 1} & /@ seqA,
%t A187413 {#1, 2} & /@ seqB}, 1]];
%t A187413 limseqU = FixedPoint[jointRank[{seqA, #1[[1]]}] &, jointRank
%t A187413 [{seqA, seqB}]][[1]]                      (* A187413 *)
%t A187413 Complement[Range[Length[seqA]], limseqU]  (* A187414 *)
%t A187413 (* by _Peter J. C. Moses, Mar 09 2011 *)
%Y A187413 Cf. A000201, A187224, A187414.
%K A187413 nonn
%O A187413 1,2
%A A187413 _Clark Kimberling_, Mar 09 2011