login
A249309
First row of spectral array W(Pi/2).
1
1, 2, 3, 5, 7, 13, 20, 35, 54, 96, 150, 264, 414, 726, 1140, 1997, 3136, 5495, 8631, 15121, 23752, 41612, 65363, 114513, 179876, 315132, 495008, 867223, 1362230, 2386544, 3748774, 6567622, 10316396
OFFSET
1,2
LINKS
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(Pi/2, 10^7)
CROSSREFS
KEYWORD
nonn
AUTHOR
Colin Barker, Oct 25 2014
STATUS
approved