OFFSET
2,2
LINKS
Alois P. Heinz, Table of n, a(n) for n = 2..1120
FORMULA
a(n) = (1/2)*B(n, 1) where B(n, x) are the Baxter polynomials with coefficients A359363. - Peter Luschny, Jan 04 2024
MAPLE
a:= proc(n) option remember; `if`(n<4, 2*n-3,
((7*n^2+7*n-2)*a(n-1)+8*(n-1)*(n-2)*a(n-2))/((n+2)*(n+3)))
end:
seq(a(n), n=2..25); # Alois P. Heinz, Jul 29 2022
MATHEMATICA
Sum[Binomial[n+1, k-1] Binomial[n+1, k] Binomial[n+1, k+1], {k, 1, n}]/(2 Binomial[n+1, 1] Binomial[n+1, 2])
PROG
(SageMath)
def A046996(n): return PolyA359363(n, 1) // 2
print([A046996(n) for n in range(2, 26)]) # Peter Luschny, Jan 04 2024
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
EXTENSIONS
More terms from Olivier Gérard, Jun 26 2001
STATUS
approved