OFFSET
0,2
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 0..1000
FORMULA
MATHEMATICA
Table[Sum[(k+1)^2*(2*k+1)*Binomial[3*n-k, n-k]/(2*n+1), {k, 0, n}], {n, 0, 25}] (* Vincenzo Librandi, Dec 05 2025 *)
PROG
(PARI) a(n) = sum(k=0, n, (k+1)^2*(2*k+1)*binomial(3*n-k, n-k))/(2*n+1);
(Magma) [&+[(k+1)^2*(2*k+1)*Binomial(3*n-k, n-k)/(2*n+1): k in [0..n]] : n in [0..30] ]; // Vincenzo Librandi, Dec 05 2025
CROSSREFS
KEYWORD
nonn
AUTHOR
Seiichi Manyama, Nov 25 2025
STATUS
approved
