OFFSET
1,3
LINKS
Eric Weisstein's World of Mathematics, Permanent
Wikipedia, Hankel matrix
EXAMPLE
| 5 6 2 |
perm | 6 2 6 | = 5*2*5 + 6*6*2 + 2*6*6 + 2*2*2 + 6*6*5 + 5*6*6 = 562.
| 2 6 5 |
MAPLE
with(linalg): P:=proc(q) local c, d, k, n, t: print(0);
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 permanent(evalm(toeplitz(c) &* t))=n then print(n); fi:
od: end: P(10^8);
CROSSREFS
KEYWORD
nonn,base,more
AUTHOR
Paolo P. Lava, May 14 2019
STATUS
approved