|
%I #17 Nov 09 2021 02:04:28
%S 1,6,28,112,414,1452,4917,16236,52624,168168,531531,1665456,5182008,
%T 16031952,49366674,151419816,462919401,1411306358,4292487562,
%U 13029127584,39478598170,119439969220,360881425710,1089126806040
%N Form array in which n-th row is obtained by expanding (1+x+x^2)^n and taking the 5th column from the center.
%H G. C. Greubel, <a href="/A098470/b098470.txt">Table of n, a(n) for n = 5..1005</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/TrinomialCoefficient.html">Trinomial Coefficient</a>
%F (n^2-25)*a(n) = n*(2*n-1)*a(n-1) + 3*n*(n-1)*a(n-2). - _Vladeta Jovovic_, Sep 18 2004
%F G.f.: 32*x^5/(sqrt((1+x)*(1-3*x))*(1-x-sqrt((1+x)*(1-3*x)))^5). - _Vladeta Jovovic_, Sep 18 2004
%F a(n) = A111808(n,n-5). - _Reinhard Zumkeller_, Aug 17 2005
%F Assuming offset 0: a(n) = GegenbauerC(n,-n-5,-1/2) and a(n) = binomial(10+2*n,n)* hypergeom([-n, -n-10], [-9/2-n], 1/4). - _Peter Luschny_, May 09 2016
%F a(n) ~ 3^(n + 1/2) / (2*sqrt(Pi*n)). - _Vaclav Kotesovec_, Nov 09 2021
%p # Assuming offset 0:
%p a := n -> simplify(GegenbauerC(n, -n-5, -1/2)):
%p seq(a(n), n=0..25); # _Peter Luschny_, May 09 2016
%t Table[GegenbauerC[n, -n - 5, -1/2], {n,0,50}] (* _G. C. Greubel_, Feb 28 2017 *)
%o (PARI) x='x + O('x^50); Vec(32*x^5/(sqrt((1+x)*(1-3*x))*(1-x-sqrt((1+x)*(1-3*x)))^5)) \\ _G. C. Greubel_, Feb 28 2017
%Y Cf. A002426, A005717, A014531, A014532, A014533.
%K nonn
%O 5,2
%A _Eric W. Weisstein_, Sep 09 2004
|
