A194896-OEIS公司

OEIS由OEIS基金会的许多慷慨捐赠者.

A194896号

三角阵列（和分形序列）：第n行是从分数部分{r}、{2r}…、。。。，{nr}，其中r=-sqrt（8）。

4

1, 1, 2, 1, 2, 3, 1, 2, 3, 4, 1, 2, 3, 4, 5, 6, 1, 2, 3, 4, 5, 6, 1, 7, 2, 3, 4, 5, 6, 1, 7, 2, 8, 3, 4, 5, 6, 1, 7, 2, 8, 3, 9, 4, 5, 6, 1, 7, 2, 8, 3, 9, 4, 10, 5, 6, 1, 7, 2, 8, 3, 9, 4, 10, 5, 11, 6, 12, 1, 7, 2, 8, 3, 9, 4, 10, 5, 11, 6, 12, 1, 7, 13, 2, 8, 3, 9, 4, 10, 5, 11, 6, 12, 1, 7

(列表;桌子;图表;参考文献;听;历史;文本;内部格式)

抵消

1,3

评论

请参阅1949年2月进行一般性讨论。

链接

n，a（n）表，n=1..95。

例子

前九行：

1

1 2

1 2 3

1 2 3 4

1 2 3 4 5

6 1 2 3 4 5

6 1 7 2 3 4 5

6 1 7 2 8 3 4 5

6 1 7 2 8 3 9 4 5

数学

r=-平方[8]；

t[n_]：=表[分数部分[k*r]，{k，1，n}]；

f=压扁[表[压扁[（位置[t[n]，#1]&）/@

排序[t[n]，Less]]，{n，1，20}]](*A194896号*)

TableForm[表格[扁平[（位置[t[n]，#1]&）/@

排序[t[n]，Less]]，{n，1，15}]]

行[n_]：=位置[f，n]；

u=表格形式[表格[行[n]，{n，1，20}]]

g[n_，k_]：=部件[行[n]，k]；

p=扁平[表[g[k，n-k+1]，{n，1，13}，

{k，1，n}]](*A194897号*)

q[n_]：=位置[p，n]；压扁[表[q[n]，

{n，1，80}]](*A194898号*)

交叉参考

囊性纤维变性。A194832号,A194897号,A194898号.

上下文中的序列：A194965号 A243712型 A256553型*A212721型 A222417号 A253573型

相邻序列：A194893号 A194894号 A194895号*A194897号 1949年8月 A194899号

关键词

非n,表

作者

克拉克·金伯利2011年9月4日

状态

经核准的