A361890 a(n) = S(7,n), where S(r,n) = Sum_{k = 0..floor(n/2)} ( binomial(n,k) - binomial(n,k-1) )^r.
1, 1, 2, 129, 2316, 94510, 4939220, 211106945, 14879165560, 828070125876, 61472962084968, 4223017425122958, 325536754765395096, 25399546083773839692, 2059386837863675003112, 173281152533121109073025, 14789443838781868027714800, 1307994690673355979749969800
Offset: 0
Links
- Seiichi Manyama, Table of n, a(n) for n = 0..483
- H. W. Gould, Problem E2384, Amer. Math. Monthly, 81 (1974), 170-171.
Crossrefs
Programs
-
Maple
seq(add( ( binomial(n,k) - binomial(n,k-1) )^7, k = 0..floor(n/2)), n = 0..20);
-
Mathematica
Table[Sum[(Binomial[n, k] - Binomial[n, k-1])^7, {k,0,Floor[n/2]}], {n,0,20}] (* Vaclav Kotesovec, Aug 27 2023 *)
-
Python
from math import comb def A361890(n): return sum((comb(n,j)*(m:=n-(j<<1)+1)//(m+j))**7 for j in range((n>>1)+1)) # Chai Wah Wu, Mar 25 2025
Formula
a(n) = Sum_{k = 0..floor(n/2)} ( (n - 2*k + 1)/(n - k + 1) * binomial(n,k) )^7.
From Alois P. Heinz, Apr 02 2023: (Start)
a(n) = Sum_{j=0..floor(n/2)} A008315(n,j)^7.
a(n) = Sum_{j=0..n} A120730(n,j)^7.
a(n) = A357824(n,7). (End)
a(n) ~ 3 * 2^(7*n + 27/2) / (2401 * Pi^(7/2) * n^(13/2)). - Vaclav Kotesovec, Aug 27 2023
Comments