OFFSET
0,2
LINKS
Seiichi Manyama, Table of n, a(n) for n = 0..100
FORMULA
a(n) = A077045(2*n).
a(n) = Sum_{k=0..floor((2*n-1)/2)} (-1)^k*binomial(2*n,k)*binomial((2*n+1)*n-2*n*k-1,(2*n-1)*n-2*n*k) for n > 0.
a(n) ~ sqrt(3) * 2^(2*n - 1) * n^(2*n - 3/2) / sqrt(Pi). - Vaclav Kotesovec, Feb 04 2022
EXAMPLE
(x + 1/x)^2 = x^2 + 2 + 1/x^2. So a(1) = 2.
MATHEMATICA
a[0] = 1; a[n_] := Sum[(-1)^k * Binomial[2*n, k] * Binomial[(2*n + 1)*n - 2*n*k - 1, (2*n - 1)*n - 2*n*k], {k, 0, Floor[n - 1/2]}]; Array[a, 14, 0] (* Amiram Eldar, May 06 2021 *)
PROG
(PARI) {a(n) = polcoef((sum(k=1, n, x^(2*k-1)+x^(-(2*k-1))))^(2*n), 0)}
(PARI) {a(n) = if(n==0, 1, sum(k=0, (2*n-1)\2, (-1)^k*binomial(2*n, k)*binomial((2*n+1)*n-2*n*k-1, (2*n-1)*n-2*n*k)))}
CROSSREFS
KEYWORD
nonn
AUTHOR
Seiichi Manyama, Nov 02 2019
STATUS
approved