|
%I #5 Mar 30 2012 18:57:12
%S 3,6,10,11,17,18,19,28,29,30,31,32,46,47,48,49,50,51,52,53,75,76,77,
%T 78,79,80,81,82,83,84,85,86,87,122,123,124,125,126,127,128,129,130,
%U 131,132,133,134,135,136,137,138,139,140,141,142,198,199,200
%N Ordering of the numbers in the tree A183543; complement of A183544.
%F The monotonic ordering of the numbers in the set S generated by these rules: 3 is in S, and if n is in S, then -2+Floor[(n+2)r] and n+Floor[(n+2)r] are in S, where r=(1+sqrt(5))/2, the golden ratio.
%t nn=200; g=(1+5^(1/2))/2; t={3}; t0=t; While[t=Select[Union[t,-2+Floor[(t+2)g],t+Floor[(t+2)g]], #<=nn&]; t0 !=t, t0=t]; t
%Y Cf. A183542, A183543, A183544.
%K nonn
%O 1,1
%A _Clark Kimberling_, Jan 05 2011
|
