cp's OEIS Frontend

A183083 Tree generated by the Beatty sequence of -1+sqrt(8).

%I A183083 #10 Nov 09 2015 15:58:18
%S A183083 1,2,3,4,5,6,7,8,9,11,10,13,12,15,14,17,16,19,20,24,18,22,23,28,21,26,
%T A183083 27,33,25,30,31,37,29,35,34,41,36,44,43,52,32,39,40,48,42,50,51,61,38,
%U A183083 46,47,57,49,59,60,72,45,55,54,66,56,68,67,81,53,64
%N A183083 Tree generated by the Beatty sequence of -1+sqrt(8).
%C A183083 A permutation of the positive integers.
%H A183083 Ivan Neretin, <a href="/A183083/b183083.txt">Table of n, a(n) for n = 1..8192</a>
%H A183083 <a href="/index/Per#IntegerPermutation">Index entries for sequences that are permutations of the natural numbers</a>
%F A183083 Let L(n)=Floor(r*n) and U(n)=Floor(s*n), where r=-1+sqrt(8) and s=r/(r-1).
%F A183083 The tree-array T(n,k) is then given by rows:
%F A183083 T(0,0) = 1; T(1,0) = 2; T(n,2j) = L(T(n-1),j); T(n,2j+1) = U(T(n-1),j);
%F A183083 for j=0,1,...,2^(n-1)-1, n>=2.
%e A183083 Top five rows:
%e A183083 1
%e A183083 2
%e A183083 3 4
%e A183083 5 6 7 8
%e A183083 9 11 10 13 12 15 14 17
%t A183083 a = {1, 2}; row = {a[[-1]]}; r = Sqrt[8] - 1; s = r/(r - 1); Do[a = Join[a, row = Flatten[{Floor[#*{r, s}]} & /@ row]], {n, 5}]; a (* _Ivan Neretin_, Nov 09 2015 *)
%Y A183083 Cf. A074049, A183079.
%K A183083 nonn,tabf
%O A183083 1,2
%A A183083 _Clark Kimberling_, Dec 23 2010