login
a(n) = hypergeom([-n, 1 + n, 2 + n, -1 - n], [1/2, 1/2, 1], 1/16). Row sums of A370233.
1

%I #10 Feb 18 2024 03:19:52

%S 1,4,24,143,881,5534,35213,226238,1464382,9534594,62377881,409717004,

%T 2700168229,17845927498,118238842174,785086422265,5222747607607,

%U 34802614713382,232261844100109,1552139710253683,10385180872126402,69563083672190704,466425975579323539

%N a(n) = hypergeom([-n, 1 + n, 2 + n, -1 - n], [1/2, 1/2, 1], 1/16). Row sums of A370233.

%F a(n) ~ phi^(4*n+4) / (2^(3/2) * 5^(1/4) * sqrt(Pi*n)), where phi = A001622 is the golden ratio. - _Vaclav Kotesovec_, Feb 18 2024

%t Table[HypergeometricPFQ[{-1 - n, -n, 1 + n, 2 + n}, {1/2, 1/2, 1}, 1/16], {n, 0, 25}] (* _Vaclav Kotesovec_, Feb 18 2024 *)

%o (PARI) a(n) = round(hypergeom([-n, 1 + n, 2 + n, -1 - n], [1/2, 1/2, 1], 1/16)); \\ _Michel Marcus_, Feb 13 2024

%Y Cf. A370233.

%K nonn

%O 0,2

%A _Peter Luschny_, Feb 13 2024