|
|
A368709
|
|
a(n) = hypergeom([-1 - n, -n, 1 - n], [2, 3], +2).
|
|
2
|
|
|
1, 1, -1, -3, 13, 17, -241, 121, 5081, -13327, -106705, 609589, 1850661, -23392159, -6796193, 811545073, -1688514383, -25224774367, 123764707231, 650087614573, -6385330335427, -9591188592399, 279171512779759, -318526766092183, -10665705513959287, 40625771132796817
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,4
|
|
LINKS
|
|
|
FORMULA
|
a(n) = (-1/2)*B(n, -2) where B(n, x) are the Baxter polynomials with coefficients A359363, for n > 0. - Peter Luschny, Jan 04 2024
|
|
MATHEMATICA
|
Table[HypergeometricPFQ[{-1-n, -n, 1-n}, {2, 3}, 2], {n, 0, 30}] (* Vaclav Kotesovec, Jan 04 2024 *)
|
|
PROG
|
(SageMath)
def A368709(n): return PolyA359363(n, -2) // (-2) if n > 0 else 1
(Python)
if n == 0: return 1
return sum((-2)**k * v for k, v in enumerate(A359363Row(n))) // (-2)
|
|
CROSSREFS
|
|
|
KEYWORD
|
sign
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|