OFFSET
2,1
MATHEMATICA
f[n_, k_] := Fold[ #2*Ceiling[ #1/#2 + k] &, n, Reverse@Range[n - 1]]; Table[Det[Table[f[i, j], {i, 2, n}, {j, 0, n - 2}]], {n, 2, 21}]
CROSSREFS
KEYWORD
sign
AUTHOR
Paul D. Hanna and Robert G. Wilson v, Nov 05 2005
STATUS
approved