OFFSET
2,2
FORMULA
Conjectural algebraic equation: 3*t+2+(3*t^2+5*t-2)*f(t)+(3*t^3-t^2)*f(t)^2 = 0.
From Peter Luschny, Jan 23 2018: (Start)
a(n) = hypergeom([(1-n)/2,1-n/2],[1],4)+(n-2)*hypergeom([1-n/2,3/2-n/2],[2],4).
a(n) = G(n-1,1-n,-1/2) + G(n-2,1-n,-1/2)*(n-2)/(n-1) where G(n,a,x) denotes the n-th Gegenbauer polynomial. (End)
D-finite with recurrence +2*n*a(n) +(-7*n+6)*a(n-1) +9*(n-4)*a(n-3)=0. - R. J. Mathar, Jul 27 2022
MAPLE
A298300 := proc(n)
hypergeom([(1-n)/2, 1-n/2], [1], 4)+(n-2)*hypergeom([1-n/2, 3/2-n/2], [2], 4);
simplify(%) ;
end proc:
seq(A298300(n), n=2..40) ; # R. J. Mathar, Jul 27 2022
MATHEMATICA
b[n_] := Hypergeometric2F1[(1 - n)/2, 1 - n/2, 1, 4];
c[n_] := (n-2) Hypergeometric2F1[1 - n/2, 3/2 - n/2, 2, 4];
Table[b[n] + c[n], {n, 2, 29}] (* Peter Luschny, Jan 23 2018 *)
PROG
(Sage)
def a(n):
return (sum(ZZ(n - 2) / i * binomial(2 * i - 2, i - 1) *
binomial(n - 2, 2 * i - 2)
for i in range(1, floor(n / 2) + 1)) +
sum(binomial(n - 1, k) * binomial(n - 1 - k, k)
for k in range(floor((n - 1) / 2) + 1)))
CROSSREFS
KEYWORD
nonn,changed
AUTHOR
F. Chapoton, Jan 16 2018
STATUS
approved