OFFSET
0,2
COMMENTS
Records: 0, 1101, 11022, 46730, 52324, 54160, 1125004, 1162232, 1205240, 1252514, 1341680, 1663828, 3357554, 3741424, 4561735, 5069138, 9436293, 104562436, 122775666, 160205152, 165525440, 224394816, etc.
LINKS
Robert G. Wilson v, Table of n, a(n) for n = 0..10000
Wikipedia, Hankel matrix
EXAMPLE
| 1 1 0 |
a(2) = 110 because det | 1 0 1 | = -2
| 0 1 1 |
;
a(5) = 23 because det | 2 3 |
| 3 2 | = -5; etc.
MAPLE
with(numtheory): with(linalg): P:=proc(q) local c, d, i, k, n, t: print(0);
for i from 1 to q do for n from 1 to q do c:=convert(n, base, 10): t:=[]:
for k from 1 to nops(c) do t:=[op(t), 0]: od: d:=t: t:=[]:
for k from 1 to nops(c) do t:=[op(t), d]: t[k, -k]:=1: od:
if det(evalm(toeplitz(c) &* t))=-i then print(n); break: fi:
od: od: end: P(10^8);
MATHEMATICA
f[n_] := Block[{k = 0}, While[id = IntegerDigits@ k; -Det[HankelMatrix[id, Reverse@ id]] != n, k++]; k]; Array[f, 60, 0]
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Paolo P. Lava and Robert G. Wilson v, May 15 2019
STATUS
approved