|
MATHEMATICA
|
q[n_, k_] := k + 1;
r[0] = 1; r[k_] := Sum[q[k - 1, i] r[k - 1 - i], {i, 0, k - 1}];
f[n_, x_] := Fibonacci[n, x]; (* A049310 *)
p[n_, k_] := Coefficient[f[n, x], x, k];
v[n_] := Sum[p[n, k] r[n - k], {k, 0, n}]
Table[v[n], {n, 0, 22}] (* A193663 *)
TableForm[Table[q[i, k], {i, 0, 4}, {k, 0, i}]]
Table[r[k], {k, 0, 8}]
TableForm[Table[p[n, k], {n, 0, 6}, {k, 0, n}]]
|