OFFSET
1,2
PROG
(Magma) m:=21; T:=[ [ k*Factorial(j-k): k in [1..j-1] ] cat [ 1 ]: j in [1..m] ]; S:=[ &+[ T[j-k+1][k]: k in [1..(j+1) div 2] ]: j in [1..m] ]; [ S[j+1]-S[j]: j in [1..m-1] ];
CROSSREFS
KEYWORD
nonn
AUTHOR
Klaus Brockhaus, May 28 2007
STATUS
approved