cp's OEIS Frontend

A183080 Tree generated by the Beatty sequence of 3-sqrt(2).

%I A183080 #11 Nov 10 2015 07:18:32
%S A183080 1,2,3,5,4,8,7,13,6,10,12,21,11,18,20,35,9,16,15,27,19,32,33,56,17,29,
%T A183080 28,48,31,54,55,94,14,24,25,43,23,40,42,73,30,51,50,86,52,89,88,151,
%U A183080 26,46,45,78,44,75,76,129,49,83,85,146,87,148,149,254
%N A183080 Tree generated by the Beatty sequence of 3-sqrt(2).
%C A183080 A permutation of the positive integers.  See the note at A183079.
%H A183080 Ivan Neretin, <a href="/A183080/b183080.txt">Table of n, a(n) for n = 1..8192</a>
%H A183080 <a href="/index/Per#IntegerPermutation">Index entries for sequences that are permutations of the natural numbers</a>
%F A183080 Let L(n)=floor(n*r), U(n)=floor(n*s), where r=3-sqrt(2) and s=r/(r-1).
%F A183080 The tree-array T(n,k) is then given by rows: 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); for j=0,1,...,2^(n-1)-1, n>=2.
%e A183080 First five rows:
%e A183080 1
%e A183080 2
%e A183080 3 5
%e A183080 4 8 7 13
%e A183080 6 10 12 21 11 18 20 35
%t A183080 a = {1, 2}; row = {a[[-1]]}; r = 3 - Sqrt[2]; s = r/(r - 1); Do[a = Join[a, row = Flatten[{Floor[#*{r, s}]} & /@ row]], {n, 5}]; a (* _Ivan Neretin_, Nov 09 2015 *)
%Y A183080 Cf. A183079, A178528, A074049.
%K A183080 nonn,tabf
%O A183080 1,2
%A A183080 _Clark Kimberling_, Dec 23 2010