OFFSET
0,4
MATHEMATICA
T[r_, 1] := 1; T[r_, 2] := -r - 1; T[r_, c_] := -r*T[r, c - 1] - T[r, c - 2]; Table[ Sum[ T[n - i, i], {i, n + 1}], {n, 0, 12}] (* Robert G. Wilson v, May 10 2005 *)
CROSSREFS
KEYWORD
sign
AUTHOR
Ralf Stephan, Sep 12 2004
EXTENSIONS
More terms from Robert G. Wilson v, May 10 2005
STATUS
approved