OFFSET
1,2
COMMENTS
LINKS
Alois P. Heinz, Rows n = 1..100, flattened
FORMULA
E.g.f.: log(1/(1 - A(x*y)))/(1 - A(x)) where A(x) is the e.g.f. for A000169.
EXAMPLE
Triangle T(n,k) begins:
1;
2, 3;
12, 9, 17;
108, 72, 68, 142;
1280, 810, 680, 710, 1569;
18750, 11520, 9180, 8520, 9414, 21576;
326592, 196875, 152320, 134190, 131796, 151032, 355081;
...
MAPLE
b:= n-> n!*add(n^(n-k-1)/(n-k)!, k=1..n):
T:= (n, k)-> binomial(n, k)*b(k)*(n-k)^(n-k):
seq(seq(T(n, k), k=1..n), n=1..10); # Alois P. Heinz, May 13 2013
MATHEMATICA
nn = 8; tx = Sum[n^(n - 1) x^n/n!, {n, 1, nn}]; txy =
Sum[n^(n - 1) (x y)^n/n!, {n, 1, nn}];
Map[Select[#, # > 0 &] &,
Drop[Range[0, nn]! CoefficientList[
Series[Log[1/(1 - txy)]/(1 - tx), {x, 0, nn}], {x, y}],
1]] // Grid
CROSSREFS
KEYWORD
nonn,tabl
AUTHOR
Geoffrey Critzer, May 13 2013
STATUS
approved