（*第一个程序*）
b[n_]：=斐波那契[n+1]；c[n_]：=斐波那契[n+1]；
T[n_，k_]：=和[b[k-i]c[n+i]，{i，0，k-1}]
表格形式[表格[T[n，k]，{n，1，10}，{k，1，10}]]
扁平[表[T[n-k+1，k]，{n，12}，{k，n，1，-1}]](*A213587型*)
r[n_]：=表[T[n，k]，{k，40}]（*反对角线三角形的列*）
s[n_]：=总和[T[i，n+1-i]，{i，1，n}]
表[s[n]，{n，1，50}](*2013年*)
（*第二个节目*）
表[（n*LucasL[2n+2]-Fibonacci[n]*LucasL[n-1]）/5，{n，30}](*G.C.格鲁贝尔2019年7月8日*）
