(MAGMAMagma) [(Factorial(n))^2*&+[Factorial(2*k)/(2^k*(Factorial(k))^3*Factorial(n-k)):k in [0..n]]:n in [0..18]]; // Marius A. Burtea, Jan 27 2020
(MAGMAMagma) [(Factorial(n))^2*&+[Factorial(2*k)/(2^k*(Factorial(k))^3*Factorial(n-k)):k in [0..n]]:n in [0..18]]; // Marius A. Burtea, Jan 27 2020
editing
approved
D-finite with recurrence a(n + 2) = 2*(3 + 2*n)*a(n + 1) - 3*(n + 1)^2*a(n). - Robert Israel, Feb 17 2020
approved
editing
proposed
approved
editing
proposed
Robert Israel, <a href="/A331817/b331817.txt">Table of n, a(n) for n = 0..380</a>
a(n + 2) = 2*(3 + 2*n)*a(n + 1) - 3*(n + 1)^2*a(n). - Robert Israel, Feb 17 2020
f:= gfun:-rectoproc({a(n + 2) = 2*(3 + 2*n)*a(n + 1) - 3*(n + 1)^2*a(n), a(0)=1, a(1)=2}, a(n), remember):
map(f, [$0..30]); # Robert Israel, Feb 17 2020
approved
editing
editing
approved
a(n) ~ 3^(n + 1/2) * n^n / exp(n). - Vaclav Kotesovec, Jan 28 2020
approved
editing
proposed
approved
editing
proposed