OFFSET
0,3
COMMENTS
Column 0 of the array in A096608.
LINKS
Paolo Xausa, Table of n, a(n) for n = 0..1000
MATHEMATICA
A096609[nmax_]:=Module[{T}, T[0, 0]=1; T[n_, k_]:=T[n, k]=If[k<=2n, T[n-1, Abs[k-2]]+T[n-2, Abs[k-1]]+T[n-1, k+2]+T[n-2, k+1], 0]; Table[T[n, 0], {n, 0, nmax}]]; A096609[50] (* Paolo Xausa, May 09 2023 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Clark Kimberling, Jun 29 2004
STATUS
approved