%I #17 May 22 2021 19:27:34

%S 1,1,2,17,83,338,1923,11553,63028,359203,2172469,13026034,78106885,

%T 478415635,2957675956,18321372721,114301292581,718253640196,

%U 4531427831111,28699590926291,182566373639352,1165539703613397

%N a(n) = Sum_{k=0..floor(n/2)} C(n-k,k)^4.

%C Conjecture: Given F(n,L) = Sum_{k=0..[n/2]} C(n-k,k)^L, then Limit_{n->oo} F(n+1,L)/F(n,L) = (Fibonacci(L)*sqrt(5) + Lucas(L))/2 for L>=0 where Fibonacci(n) = A000045(n) and Lucas(n) = A000032(n).

%C For this sequence (L=4): Limit a(n+1)/a(n) = (3*sqrt(5)+7)/2 = 6.8541...

%H Seiichi Manyama, <a href="/A181546/b181546.txt">Table of n, a(n) for n = 0..1202</a>

%H C. Banderier, P. Hitczenko, <a href="https://doi.org/10.1016/j.dam.2011.12.011">Enumeration and asymptotics of restricted compositions having the same number of parts</a>, Disc. Appl. Math. 160 (18) (2012) 2542-2554. Table 1.

%e G.f. A(x) = 1 + x + 2*x^2 + 17*x^3 + 83*x^4 + 338*x^5 + 1923*x^6 +...

%e The terms begin:

%e a(0) = a(1) = 1^4;

%e a(2) = 1^4 + 1^4 = 2;

%e a(3) = 1^4 + 2^4 = 17;

%e a(4) = 1^4 + 3^4 + 1^4 = 83;

%e a(5) = 1^4 + 4^4 + 3^4 = 338;

%e a(6) = 1^4 + 5^4 + 6^4 + 1^4 = 1923;

%e a(7) = 1^4 + 6^4 + 10^4 + 4^4 = 11553; ...

%t Table[Sum[Binomial[n-k,k]^4,{k,0,Floor[n/2]}],{n,0,30}] (* _Harvey P. Dale_, May 22 2021 *)

%o (PARI) {a(n)=sum(k=0,n\2,binomial(n-k,k)^4)}

%Y Cf. variants: A181545, A181547, A051286.

%Y Cf. A000032, A000045.

%K nonn

%O 0,3

%A _Paul D. Hanna_, Oct 29 2010