A022163 - OEIS

%I #21 May 14 2019 11:11:32

%S 1,5,6,27,33,147,180,801,981,4365,5346,23787,29133,129627,158760,

%T 706401,865161,3849525,4714686,20977947,25692633,114319107,140011740,

%U 622980801,762992541

%N First row of spectral array W(sqrt(3/2)).

%H A. Fraenkel and C. Kimberling, <a href="http://dx.doi.org/10.1016/0012-365X(94)90259-3">Generalized Wythoff arrays, shuffles and interspersions</a>, Discrete Mathematics 126 (1994) 137-149.

%F Conjectures: a(n) = 6*a(n-2)-3*a(n-4). G.f.: -(3*x^3-5*x-1) / (3*x^4-6*x^2+1). - _Colin Barker_, Oct 23 2014

%o (PARI)

%o \\ The first row of the generalized Wythoff array W(h),

%o \\   where h is an irrational number between 1 and 2.

%o row1(h, m) = {

%o   my(

%o     a=vector(m, n, floor(n*h)),

%o     b=setminus(vector(m, n, n), a),

%o     w=[a[1]^2, b[a[1]]],

%o     j=3

%o   );

%o   while(1,

%o     if(j%2==1,

%o       if(w[j-1]<=#a, w=concat(w, a[w[j-1]]), return(w))

%o     ,

%o       if(w[j-2]<=#b, w=concat(w, b[w[j-2]]), return(w))

%o     );

%o     j++

%o   );

%o   w

%o }

%o row1(sqrt(3/2), 100000) \\ _Colin Barker_, Oct 23 2014

%K nonn,more

%O 0,2

%A _Clark Kimberling_

%E a(14)-a(18) from _Colin Barker_, Oct 23 2014 and _Michel Marcus_, Oct 24 2014

%E a(19)-a(24) from _Sean A. Irvine_, May 13 2019