|
|
例子
|
不规则三角形的开头为：
1;
25;
4, 1;
100, 25;
11, 4, 1;
275, 100, 25;
29, 11, 4, 1;
725, 275, 100, 25;
76, 29, 11, 4, 1;
1900, 725, 275, 100, 25;
199, 76, 29, 11, 4, 1;
4975, 1900, 725, 275, 100, 25;
|
|
|
数学
|
（*第一个程序*）
e[n_，0]：=Sqrt[5]*（黄金比率^（n）+黄金比例^（-n））；
e[n_，k_]：=如果[k>n-1，0，（e[n-1，k]*e[n，k-1]+1）/e[n-1、k-1]]；
T[n_，k_]：=5*合理化[n[e[n，k]]]；
表[T[n，k]，{n，2，16}，{k，Mod[n，2]+1，n-1，2}]//展平
（*第二个节目*）
f[n_]：=f[n]=如果[EvenQ[n]，LucasL[n-1]，25*LucasL[2]]；
T[n_，k_]：=f[n-2*k]；
表[T[n，k]，{n，2，16}，{k，0，（n-2）/2}]//扁平(*G.C.格鲁贝尔2021年12月6日*）
|
