A179089
a(n) = (1/n^2) * Sum_{k=0..n-1} (2k+1)*T_k^2(-3)^(n-1-k), where T_0, T_1, ... are central trinomial coefficients given by A002426.
Original entry on oeis.org
1, 0, 5, 13, 105, 576, 4005, 27000, 193193, 1402672, 10433709, 78807785, 603996745, 4683970032, 36702939429, 290184446349, 2312460578025, 18556825469040, 149842592021997, 1216719520281045, 9929612901775761, 81406058258856240
Offset: 1
For n = 4 we have a(4) = (T_0^2(-3)^3 + 3*T_1^2(-3)^2 + 5*T_2^2(-3) + 7*T_3^2)/4^2 = (-27 + 27 - 5*27 + 7^3)/16 = 13.
-
A002426 := n -> simplify(GegenbauerC(n, -n, -1/2)); seq( (A002426(n)+A002426(n-1))*(3*A002426(n-1)-A002426(n))/4, n=1..20); # Mark van Hoeij, Nov 13 2022
-
TT[n_]:=Sum[Binomial[n,2k]Binomial[2k,k],{k,0,Floor[n/2]}] SS[n_]:=Sum[(2k+1)*TT[k]^2*(-3)^(n-1-k),{k,0,n-1}]/n^2 Table[SS[n],{n,1,50}]
A179524
a(n) = Sum_{k=0..n} (-4)^k*binomial(n,k)^2*binomial(n-k,k)^2.
Original entry on oeis.org
1, 1, -15, -143, 1, 12801, 100401, -555855, -16006143, -69903359, 1371541105, 20881151985, 5878439425, -2725373454335, -25310084063055, 145439041081137, 4851621446905857, 23952290336559105, -470461357757965071, -7793050905481342863, -4149447893184517119
Offset: 0
For n=3 we have a(3)=1-4*3^2*2^2=-143.
-
W[n_]:=Sum[(-4)^k*Binomial[n,k]^2*Binomial[n-k,k]^2,{k,0,n}] Table[W[n],{n,0,50}]
A179535
a(n) = Sum_{k=0..n} binomial(n,k)^2 * binomial(n-k,k)^2 * 81^k.
Original entry on oeis.org
1, 1, 325, 2917, 247861, 5937301, 265793401, 10705726585, 378746444917, 18588932910901, 657940881863305, 32580334626782185, 1257522211980656425, 59212895251349313865, 2490039488311462939645, 112553667120196462181437
Offset: 0
For n=2 we have a(2) = 1 + 2^2*81 = 325.
-
a[n_]:=Sum[Binomial[n,k]^2Binomial[n-k,k]^2*81^k,{k,0,n}] Table[a[n],{n,0,25}]
A179100
a(n) = (1/n) * Sum_{k=0..n-1} (8k+5) T_k^2, where T_0, T_1, ... are central trinomial coefficients given by A002426.
Original entry on oeis.org
5, 9, 69, 407, 2997, 22005, 169389, 1325889, 10573677, 85386881, 697013325, 5739021051, 47599593941, 397234035333, 3332690347437, 28089543969855, 237711099004461, 2018856328439841, 17200553934626253, 146966002696538271
Offset: 1
For n=3 we have a(3) = (5*T_0^2 + 13*T_1^2 + 21*T_2^2)/3 = (5 + 13 + 21*9)/3 = 69.
-
TT[n_]:=Sum[Binomial[n,2k]Binomial[2k,k],{k,0,Floor[n/2]}] SS[n_]:=Sum[(8k+5)*TT[k]^2,{k,0,n-1}]/n Table[SS[n],{n,1,50}]
A179537
a(n) = Sum_{k=0..n} binomial(n,k)^2*binomial(n-k,k)^2*(-16)^k.
Original entry on oeis.org
1, 1, -63, -575, 6913, 224001, 420801, -69020223, -918270975, 14596918273, 511845045697, 336721812417, -198449271643391, -2498857696947455, 51614254703660481, 1666776235855331265, -1588877076116525055
Offset: 0
For n=2 we have a(2)=1+2^2*(-16)=-63.
-
a[n_]:=Sum[Binomial[n,k]^2Binomial[n-k,k]^2*(-16)^k,{k,0,n}] Table[a[n],{n,0,25}]
Showing 1-5 of 5 results.
Comments