STATUS
reviewed
approved
reviewed
approved
proposed
reviewed
editing
proposed
b[x_, y_] := b[x, y] = If[y < 0 || y > x, 0, If[x == 0, 1, Sum[b[x - i, y - 1], {i, 0, x}] + Sum[b[x - 1, y - j], {j, 0, y}] - b[x - 1, y - 1]]];
a[n_] := b[n, n];
Table[a[n], {n, 0, 30}] (* Jean-François Alcover, Sep 01 2022, after Alois P. Heinz *)
approved
editing
editing
approved
editing
approved
editing
approved
Cf. A082582.
approved
editing