|
|
FORMULA
| A(n,k)= (3*n - 3*k + 1)A(n - 1, k - 1) + (3*k - 2)A(n - 1, k); a(n)=diagonal(a(n,k),4).
|
|
|
MATHEMATICA
| Clear[A, a, b, n, m, k]; A[n_, 1] := 1; A[n_, n_] := 1; A[n_, k_] := (3*n - 3*k + 1)A[n - 1, k - 1] + (3*k - 2)A[n - 1, k]; a = Table[A[n, k], {n, 20}, {k, n}]; b = Table[a[[n + m - 1]][[n]], {m, 1, 10}, {n, 1, 10}]; Table[b[[4]][[n]], {n, 1, 10}]
|
