A375086 Row sums of A375085.

0, 1, 3, 8, 24, 78, 268, 956, 3496, 12998, 48876, 185268, 706456, 2706204, 10404696, 40124792, 155133904, 601113158, 2333671756, 9075266372, 35345525944, 137847053108, 538258923016, 2104101060872, 8233434921904, 32247612071708, 126410623214968, 495918566502536

Offset: 0

Author

Stefano Spezia, Jul 29 2024

Keywords

• nonn

Crossrefs

Cf. A375085.

Cf. A000079, A000302, A000346, A000984, A001791, A007582.

Programs

Mathematica

a[n_]:=(2^(n+1)+4^n+4Binomial[2n-2,n-1]-8Binomial[2n-2,n-2]Hypergeometric2F1[1,2-n,1+n,-1])/8; Join[{0,1},Array[a,26,2]]

Formula

a(n) = (2^(n+1) + 4^n + 4*binomial(2*n-2,n-1) - 8*binomial(2*n-2,n-2)*hypergeom([1, 2-n], [1+n], -1))/8 for n > 1.

a(n) ~ A007582(n+2).