|
| |
|
| A194908号 |
| 三角阵列（和分形序列）：第n行是从分数部分{r}、{2r}…、。。。，{nr}，其中r=-Pi。 |
|
4
|
|
|
|
1, 2, 1, 3, 2, 1, 4, 3, 2, 1, 5, 4, 3, 2, 1, 6, 5, 4, 3, 2, 1, 7, 6, 5, 4, 3, 2, 1, 7, 6, 5, 4, 3, 2, 1, 8, 7, 6, 5, 4, 3, 2, 9, 1, 8, 7, 6, 5, 4, 3, 10, 2, 9, 1, 8, 7, 6, 5, 4, 11, 3, 10, 2, 9, 1, 8, 7, 6, 5, 12, 4, 11, 3, 10, 2, 9, 1, 8, 7, 6, 13, 5, 12, 4, 11, 3, 10, 2, 9, 1, 8, 7, 14, 6
(列表；桌子；图表；参考；听；历史；文本；内部格式)
|
|
|
|
抵消
|
1,2
|
|
|
评论
|
|
|
|
链接
|
|
|
|
例子
|
前九行：
1；
2, 1;
3, 2, 1;
4, 3, 2, 1;
5, 4, 3, 2, 1;
6, 5, 4, 3, 2, 1;
7, 6, 5, 4, 3, 2, 1;
7, 6, 5, 4, 3, 2, 1, 8;
7, 6, 5, 4, 3, 2, 9, 1, 8;
|
|
|
数学
|
r=-Pi；
t[n_]：=表[分数部分[k*r]，{k，1，n}]；
f=压扁[表[压扁[（位置[t[n]，#1]&）/@
表格形式[Table[Flatten]（位置[t[n]，#1]&）/@
排序[t[n]，Less]]，｛n，1，15｝]]
row[n_]：=位置[f，n]；
u=表格形式[表格[行[n]，{n，1，20}]]
g[n_，k_]：=部件[行[n]，k]；
p=扁平[表[g[k，n-k+1]，{n，1，13}，
q[n_]：=位置[p，n]；压扁[表[q[n]，
|
|
|
交叉参考
|
|
|
|
关键词
|
|
|
|
作者
|
|
|
|
状态
|
经核准的
|
| |
|
|
