|
|
A331656
|
|
a(n) = Sum_{k=0..n} binomial(n,k) * binomial(n+k,k) * n^k.
|
|
4
|
|
|
1, 3, 37, 847, 28401, 1256651, 69125869, 4548342975, 348434664769, 30463322582899, 2993348092318101, 326572612514776079, 39170287549040392369, 5123157953193993402171, 725662909285939100555101, 110662236267661479984580351, 18077209893508013563092846849
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
LINKS
|
|
|
FORMULA
|
a(n) = central coefficient of (1 + (2*n + 1)*x + n*(n + 1)*x^2)^n.
a(n) = [x^n] 1 / sqrt(1 - 2*(2*n + 1)*x + x^2).
a(n) = n! * [x^n] exp((2*n + 1)*x) * BesselI(0,2*sqrt(n*(n + 1))*x).
a(n) = Sum_{k=0..n} binomial(n,k)^2 * n^k * (n + 1)^(n - k).
a(n) = P_n(2*n+1), where P_n is n-th Legendre polynomial.
|
|
MATHEMATICA
|
Join[{1}, Table[Sum[Binomial[n, k] Binomial[n + k, k] n^k, {k, 0, n}], {n, 1, 16}]]
Table[SeriesCoefficient[1/Sqrt[1 - 2 (2 n + 1) x + x^2], {x, 0, n}], {n, 0, 16}]
Table[LegendreP[n, 2 n + 1], {n, 0, 16}]
Table[Hypergeometric2F1[-n, n + 1, 1, -n], {n, 0, 16}]
|
|
PROG
|
(PARI) a(n) = {sum(k=0, n, binomial(n, k) * binomial(n+k, k) * n^k)} \\ Andrew Howroyd, Jan 23 2020
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|