|
%I #9 Oct 13 2022 15:09:29
%S 1,2,4,5,7,8,9,12,13,14,15,16,20,21,22,23,24,25,26,27,33,34,35,36,37,
%T 38,39,40,41,42,43,44,45,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,
%U 69,70,71,72,73,74,88,89,90,91,92,93,94,95,96,97,98,99,100,101,102,103
%N Ordering of the numbers in the tree A183542; complement of A183545.
%F The monotonic ordering of the numbers in the set S generated by these rules: 1 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={1}; t0=t; While[t=Select[Union[t,-2+Floor[(t+2)g], t+Floor[(t+2)g]], #<=nn&]; t0 !=t, t0=t];t
%o (Python)
%o from itertools import islice
%o def A183544_gen(): # generator of terms
%o a, b, i = 1, 1, 0
%o while True:
%o yield from (j+a for j in range(i,i+a))
%o i += a
%o a, b = b, a+b
%o A183544_list = list(islice(A183544_gen(),30)) # _Chai Wah Wu_, Oct 13 2022
%Y Cf. A183542, A183543, A183545.
%K nonn
%O 1,2
%A _Clark Kimberling_, Jan 05 2011
|
