OFFSET
1,2
MATHEMATICA
a[i_, j_][n_] := Which[i < j, n, i > j, -n, True, 0]; M[n_] := Table[a[i, j][n], {i, n}, {j, n}]; Table[Det[M[n]], {n, 1, 50}]
CROSSREFS
KEYWORD
nonn
AUTHOR
José María Grau Ribas, Apr 07 2010
STATUS
approved