A022161 First row of spectral array W(e-1).

1, 2, 3, 4, 6, 9, 15, 21, 36, 50, 85, 119, 204, 284, 487, 679, 1166, 1624, 2790, 3884, 6673, 9291, 15964, 22226, 38190, 53169, 91359, 127191, 218549, 304267, 522816, 727870, 1250685, 1741218, 2991903, 4165361, 7157264, 9964423, 17121686

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(exp(1)-1, 10^7) \\ Colin Barker, Oct 24 2014

Crossrefs

Sequence in context: A089797 A081237 A022159 * A287148 A127604 A268710

Adjacent sequences: A022158 A022159 A022160 * A022162 A022163 A022164

Keyword

nonn

Author

Clark Kimberling

Extensions

More terms from Colin Barker, Oct 24 2014

Status

approved