| 数据
|
1, 1, 2, 1, 4, 7, 1, 6, 18, 31, 1, 8, 33, 90, 154, 1, 10, 52, 185, 481, 820, 1, 12, 75, 324, 1065, 2690, 4575, 1, 14, 102, 515, 2006, 6276, 15547, 26398, 1, 16, 133, 766, 3420, 12468, 37711, 92124, 156233, 1, 18, 168, 1085, 5439, 22412, 78030, 230277
|
| 数学
|
p[n_,k_]:=斐波那契[k+2]
表[p[n,k],{n,0,5},{k,0,n}](*A193588号*)
m[n_]:=表[如果[i<=j,p[n+1-i,j-i],0],{i,n},{j,n+1}]
表格[m[4]]
w[0,0]=1;w[1,0]=p[1,0];w[1,1]=p[1,1];
v[0]=w[0,0];v[1]={w[1,0],w[1,1]};
v[n]:=v[n-1].m[n]
表格形式[表格[v[n],{n,0,6}]](*A193589号*)
扁平[表格[v[n],{n,0,8}]]
|