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