|
|
A022159
|
|
First row of spectral array W(sqrt(3)).
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
LINKS
|
|
|
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)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|