A194670-OEIS公司

A194670号

三角形数组：T（n，k）=[<n*r>+<k*r>]，其中[]=地板，<>=分数部分，r=平方（5）。

三

0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 0, 0, 0, 1, 0, 0, 0, 1, 1, 0, 0, 0, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 1, 0, 0, 1, 1, 0, 0, 0, 1, 1, 1, 0, 1, 1, 1, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 1

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

抵消

第n行和给出[0,1]中k的个数，其中<n*r>+<k*r>>1；看见A194671号.

链接

n，a（n）的表，n=1..99。

例子

前十三行：

0 0

0 1 1

1 1 1 1

0 0 0 1 0

0 0 1 1 0 0

0 1 1 1 0 1 1

1 1 1 1 1 1 1 1

0 0 0 1 0 0 0 1 0

0 0 1 1 0 0 1 1 0 0

0 1 1 1 0 1 1 1 0 0 1

1 1 1 1 1 1 1 1 0 1 1 1

0 0 0 1 0 0 0 0 0 0 0 0 0

数学

r=平方[5]；z=13；

p[x_]：=分数部分[x]；f[x_]：=楼层[x]；

w[n，k_]：=p[r^n]+p[r*k]-p[r*n+r*k]

压扁[表[w[n，k]，{n，1，z}，{k，1，n}]]

表格形式[表格[w[n，k]，{n，1，z}，{k，1，n}]]

s[n_]：=和[w[n，k]，{k，1，n}](*A194669号*)

表[s[n]，{n，1，100}]

h[n，k_]：=f[p[n*r]+p[k*r]]

扁平[表[h[n，k]，{n，1，z}，{k，1，n}]]

(*A194670号*)

表格形式[表格[h[n，k]，{n，1，z}，{k，1，n}]]

t[n]：=总和[h[n，k]，{k，1，n}]

表[t[n]，{n，1，100}](*A194671号*)

交叉参考

囊性纤维变性。A194671号.

上下文中的序列：A091247号 A085137号 A304577型*A130543型 A185013号 A346459型

相邻序列：A194667号 A194668号 A194669号*A194671号 A194672号 A194673号

关键词

非n,表

作者

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

状态

经核准的