OFFSET
0,2
LINKS
Alois P. Heinz, Rows n = 0..60, flattened
FORMULA
M(1, j) = A078125(j), M(j+1, j)=2*3^j.
EXAMPLE
MAPLE
S:= proc(i, j) option remember;
add(M(i, k)*M(k, j), k=0..i)
end:
M:= proc(i, j) option remember; `if`(j=0 or i=j, 1,
add(S(i-1, k)*M(k, j-1), k=0..i-1))
end:
seq(seq(S(n, k), k=0..n), n=0..10); # Alois P. Heinz, Feb 27 2015
MATHEMATICA
S[i_, j_] := S[i, j] = Sum[M[i, k]*M[k, j], {k, 0, i}]; M[i_, j_] := M[i, j] = If[j == 0 || i == j, 1, Sum[S[i-1, k]*M[k, j-1], {k, 0, i-1}]]; Table[Table[S[n, k], {k, 0, n}], {n, 0, 10}] // Flatten (* Jean-François Alcover, Mar 06 2015, after Alois P. Heinz *)
CROSSREFS
KEYWORD
nonn,tabl
AUTHOR
Paul D. Hanna, Nov 18 2002
STATUS
approved