STATUS
reviewed
approved
reviewed
approved
proposed
reviewed
editing
proposed
T[n_, k_] := T[n, k] = Which[k == 1, Fibonacci[2*n - 1], n == k, 1, n == k + 1, 2*T[n - 1, k] + T[n - 1, k - 1], n >= k + 2, 2*T[n - 1, k] + T[n - 1, k - 1] - T[n - 2, k - 1] + Fibonacci[2*n - 2*k - 2], True, 0];
Table[Table[T[n, k], {k, 1, n}], {n, 1, 12}] // Flatten (* Jean-François Alcover, Sep 25 2022, after R. J. Mathar *)
approved
editing
editing
approved
option remember;
ow Row sums give A038731(n-1).
ow sums give A038731(n-1).
approved
editing
editing
approved
Czabarka, É., Flórez, R., Junes, L., & Ramírez, J. L. (2018). <a href="https://doi.org/10.1016/j.disc.2018.01606.032">Enumerations of peaks and valleys on non-decreasing Dyck paths</a>. Discrete Mathematics, 341(10), 2789-2807.