OFFSET
1,2
FORMULA
E.g.f. for column k: x * Sum_{n>=0} binomial(n,k)*2^binomial(n,2)*x^n/n!.
Sum_{k=1..n-1} T(n,k)*k/2 = A095351(n).
T(n,k) = n*binomial(n-1,k)*2^binomial(n-1,2). - Alois P. Heinz, Apr 21 2017
EXAMPLE
1,
2, 2,
6, 12, 6,
32, 96, 96, 32,
320, 1280, 1920, 1280, 320,
...
MATHEMATICA
nn = 9; Map[Select[#, # > 0 &] &,
Drop[Transpose[Table[A[z_] := Sum[Binomial[n, k] 2^Binomial[n, 2] z^n/n!, {n, 0, nn}]; Range[0, nn]! CoefficientList[Series[z A[z], {z, 0, nn}], z], {k, 0, nn - 1}]], 1]] // Grid
CROSSREFS
KEYWORD
nonn,tabl
AUTHOR
Geoffrey Critzer, Apr 20 2017
STATUS
approved