|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
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
|
|
|
STATUS
|
approved
|
|
|
|