[go: up one dir, main page]

login
A019448
Number of monomials in expansion of determinant of an n X n Hankel matrix [ t(i+j) ] in terms of its entries.
5
1, 2, 5, 16, 58, 231, 1016, 4782, 23653, 121727, 648611, 3541871, 19713695
OFFSET
1,2
LINKS
Benjamin Basso and Lance J. Dixon, Gluing Ladders into Fishnets, arXiv:1705.03545 [hep-th], 2017. See p. 5.
MAPLE
with(linalg): A019448 := proc(n) local i, j, m; m := array(1..n, 1..n); for i from 1 to n do for j from 1 to n do m[i, j] := a[i+j] od od; nops([coeffs(det(m))]); end; # Jeffrey Shallit, Jun 08 2000
with(LinearAlgebra): f:=n->nops([coeffs(Determinant(Matrix(n, (i, j) -> a[i+j] )))]): [seq(f(n), n=1..10)]; # Vaclav Kotesovec, Mar 29 2019
MATHEMATICA
f[n_] := Length@ Expand@ Det@ Table[t[i + j], {i, n}, {j, n}]; Do[ Print@ f@n, {n, 11}] (* Robert G. Wilson v, Sep 17 2006 *)
CROSSREFS
KEYWORD
nonn,hard,more
AUTHOR
Herbert S. Wilf
EXTENSIONS
a(8)-a(9) from Jeffrey Shallit, Jun 08 2000
a(10)-a(11) from Robert G. Wilson v, Sep 17 2006
a(12) from Roman Pearce, Aug 30 2014
a(13) from Vaclav Kotesovec, Mar 20 2019
STATUS
approved