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

Author

Clark Kimberling

Keywords

• nonn

Links

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

Programs

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

Extensions

More terms from Colin Barker, Oct 24 2014