OFFSET
0,3
COMMENTS
Triangle table: {0} {0, 2} {0, 6, 6} {0, 12, 12, 156} {0, 20, 20, 420, 820} {0, 30, 30, 930, 1830, 29730} {0, 42, 42, 1806, 3570, 79422, 229362}
FORMULA
f(w)=Abs[Det[Table[Table[If [n > m, -q, If[ n == m, 0, q + 1]], {n, 0, w}], {m, 0, w}]]] a(n)=f(w) while q>=w
MATHEMATICA
f[w_] := Abs[Det[Table[Table[If [ n > m, -q, If[ n == m, 0, q + 1]], {n, 0, w}], {m, 0, w}]]] (* triangular table*) a = Table[Table[f[w], {w, 0, q}], {q, 0, 20}] (* output array*) b = Flatten[a]
CROSSREFS
KEYWORD
nonn,uned,tabf,obsc
AUTHOR
Roger L. Bagula, Apr 07 2005
STATUS
approved