|
| |
|
| A269729型 |
| a（n）=扩展Wythoff阵列的行数（参见A035513号)其包含通过向后读取第n行（并调整符号）而获得的序列。 |
|
三
|
|
|
|
0, 1, 2, 3, 4, 7, 10, 5, 8, 11, 6, 9, 12, 20, 28, 15, 23, 31, 18, 26, 13, 21, 29, 16, 24, 32, 19, 27, 14, 22, 30, 17, 25, 33, 54, 75, 41, 62, 83, 49, 70, 36, 57, 78, 44, 65, 86, 52, 73, 39, 60, 81, 47, 68, 34, 55, 76, 42, 63, 84, 50, 71, 37, 58, 79, 45, 66, 87, 53, 74, 40
(列表;图表;参考文献;听;历史;文本;内部格式)
|
|
|
|
抵消
|
0,3
|
|
|
评论
|
|
|
|
参考文献
|
J.H.Conway，《数学趣味邮件列表发布》，1996年11月25日和1996年12月2日。
|
|
|
链接
|
|
|
|
例子
|
取n=5：读取第5行A035513号向后提供。。。23, 14, 9, 5, 4, 1, 3, -2, 5, -7, 12, -19, ..., 调整符号后为第7行，因此a（5）=7。
|
|
|
MAPLE公司
|
选项记忆；
如果c=1，则
elif c>1则
elif c<1则
进程名（r，c+2）-进程名（r，c+1）；
结束条件：；
结束进程：
A035513inv:=进程（w1:：整数，w2:：整数）
局部r、c、W1、W2；
从1到r do
返回-1；
结束条件：；
从1到c
如果W1=W1和W2=W2，则
返回r-1；
elif W2>W2则
断裂；
结束条件：；
结束do：
结束do：
结束进程：
选项记忆；
局部c，W1，W2，r，n35513；
n35513：=n+1；
从1到-1 do的c
如果W1<0且abs（W2）>abs（W1），则
r:=A035513inv（abs（W1），abs（W2））；
如果r>=0，则
返回r；
结束条件：；
结束条件：；
结束do：
结束进程：
|
|
|
数学
|
W[n_，k_]：=W[n，k]=斐波那契[k+1]楼层[n*黄金比率]+（n-1）*斐波那奇[k]；
Winv[w1_，w2_]：=Winv[w1，w2]=模块[{r，c，w1，w2}，对于[r=1，True，r++，如果[W[r，1]>w2，返回[-1]]；对于[c=1，真，c++，W1=W[r，c]；W2=W[r，c+1]；如果[W1==W1&&W2==W2，返回[r-1]，如果[W2>W2，中断[]]]]]；
a[n_]：=a[n]=模块[{c，W1，W2，r，nw}，nw=n+1；对于[c=1，真，c---，W1=W[nw，c]；W2=W[nw，c-1]；如果[W1<0&Abs[W2]>Abs[W1]，r=Winv[Abs[W 1]，Abs[w 2]；如果[r>=0，则返回[r]]]]；
|
|
|
交叉参考
|
|
|
|
关键词
|
非n,容易的
|
|
|
作者
|
|
|
|
扩展
|
|
|
|
状态
|
经核准的
|
| |
|
|
