VOOZH about

URL: https://oeis.org/A022161

⇱ A022161 - OEIS

login
A022161
First row of spectral array W(e-1).
3
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
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
KEYWORD
nonn
EXTENSIONS
More terms from Colin Barker, Oct 24 2014
STATUS
approved