OFFSET
3,2
LINKS
G. C. Greubel, Table of n, a(n) for n = 3..1000
MATHEMATICA
T[n_, k_]:= T[n, k]= If[k==0 || k==n, 1, If[k==1 || k==n-1, Floor[3*n/2], T[n-1, k-1] +T[n-1, k]]]; (* T = A026626 *)
A262964[n_]:= Sum[T[n, k]*T[n, k+3], {k, 0, n-3}];
Table[A262964[n], {n, 3, 40}] (* G. C. Greubel, Jun 23 2024 *)
PROG
(SageMath)
@CachedFunction
def T(n, k): # T = A026626
if (k==0 or k==n): return 1
elif (k==1 or k==n-1): return int(3*n//2)
else: return T(n-1, k-1) + T(n-1, k)
def A262964(n): return sum( T(n, k)*T(n, k+3) for k in range(n-2))
[A262964(n) for n in range(3, 41)] # G. C. Greubel, Jun 23 2024
CROSSREFS
KEYWORD
nonn
AUTHOR
EXTENSIONS
More terms from Sean A. Irvine, Oct 20 2019
STATUS
approved