OFFSET
0,3
MAPLE
with(LinearAlgebra): f:=n->nops([coeffs(Determinant(Matrix(n, (i, j) -> a[abs(i-j)])))]): [seq(f(n), n=0..12)];
MATHEMATICA
f[n_] := Length[ Expand[ Det[ Table[ t[ Abs[ i - j]], {i, 1, n}, {j, 1, n}]]]]; Table[ f[n], {n, 1, 11}]
CROSSREFS
KEYWORD
nonn,more,hard
AUTHOR
Herbert S. Wilf
EXTENSIONS
Terms a(12) and a(13) from Thotsaporn Thanatipanonda, Jan 26-28 2012
Terms a(14) and a(15) from Roman Pearce, Aug 30 2014
a(0)=1 prepended by Alois P. Heinz, Feb 25 2024
STATUS
approved