A022159 First row of spectral array W(sqrt(3)).

1, 2, 3, 4, 6, 9, 15, 21, 36, 49, 84, 115, 199, 272, 471, 643, 1113, 1521, 2634, 3598, 6231, 8512, 14743, 20139, 34881, 47649, 82530, 112738, 195267, 266740, 462007, 631113, 1093119, 1493229, 2586348, 3533017, 6119364, 8359207, 14478571

Offset

0,2

Links

Table of n, a(n) for n=0..38.

A. Fraenkel and C. Kimberling, Generalized Wythoff arrays, shuffles and interspersions, Discrete Mathematics 126 (1994) 137-149.

Prog

(PARI)
\\ The first row of the generalized Wythoff array W(h),
\\   where h is an irrational number between 1 and 2.
row1(h, m) = {
  my(
    a=vector(m, n, floor(n*h)),
    b=setminus(vector(m, n, n), a),
    w=[a[1]^2, b[a[1]]],
    j=3
  );
  while(1,
    if(j%2==1,
      if(w[j-1]<=#a, w=concat(w, a[w[j-1]]), return(w))
    ,
      if(w[j-2]<=#b, w=concat(w, b[w[j-2]]), return(w))
    );
    j++
  );
  w
}
allocatemem(10^9)
row1(sqrt(3), 10^7) \\ Colin Barker, Oct 24 2014

Crossrefs

Sequence in context: A192488 A089797 A081237 * A022161 A287148 A127604

Adjacent sequences: A022156 A022157 A022158 * A022160 A022161 A022162

Keyword

nonn

Author

Clark Kimberling

Extensions

More terms from Colin Barker, Oct 24 2014

Status

approved