%我#10 2018年2月27日10:27:25

%S 1,7,3,24,17,5,58,48,27,7115102,72,37,9201185146,96,47,11322，

%电话：303255190120,57,13484462405325234144,67,15693668602507，

%电话：395278168,77,17955927852742609465

%N矩形阵列：（第N行）=b**c，其中b（h）=3*h-2，c（h）=2*N-3+2*h，N>=1，h>=1和**=卷积。

%C主对角线：A103748。

%C反对角线总和：A213834。

%C第1行，（1,3,5,7，…）**（1,3,5,7，…）：A081436。

%C第2行，（1,3,5,7，…）**（3,5,1,9，…）：A144640。

%C第3行，（1,3,5,7，…）**（5,7,9,11，…）：（2*k^3+11*k^2-3*k）/2。

%C有关相关阵列的指南，请参阅A212500。

%H Clark Kimberling，反对角线n=1..12，扁平</a>

%F T（n，k）=4*T（n、k-1）-6*T（n、k-2）+4*T（m，k-3）-T（n，k-4）。

%F G.F.对于第n行：F（x）/G（x），其中F（x）=x*（（2*n-1）+（2*n+1）*x-（4*n-6）*x^2）和G（x）=（1-x）^4。

%e西北角（数组由下降的反对角线读取）：

%e 1….7…24…58…115

%e 3…17…48…102…185

%e 5….27…72…146…255

%e 7…37…96…190…325

%e 9…47…120…234…395

%e 11…57…144…278…465

%tb[n]：=3n-2；c[n]：=2n-1；

%t[n_，k_]：=和[b[k-i]c[n+i]，{i，0，k-1}]

%t表格形式[表格[t[n，k]，{n，1,10}，{k，1,10{]]

%t压扁[表[t[n-k+1，k]，{n，12}，{k，n，1，-1}]]

%t r[n_]：=表格[t[n，k]，{k，1,60}]（*A213833*）

%t表[t[n，n]，{n，1,40}]（*A130748*）

%t s[n]：=总和[t[i，n+1-i]，{i，1，n}]

%t表格[s[n]，{n，1,50}]（*A213834*）

%Y参考A212500。

%K non，tabl，简单

%O 1,2号机组

%A_Clark Kimberling_，2012年7月4日