|
例子
|
不规则三角形的开头为:
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日*)
|