OFFSET
0,3
MAPLE
with(LinearAlgebra), with(combinat):
h0:=(i, j)->bell(i+j-2)*bell(i+j-1);
seq(Determinant(Matrix(kk, kk, h0)), kk=0..10);
MATHEMATICA
Flatten[{1,
Table[Det[
Table[BellB[i + j - 2]*BellB[i + j - 1], {i, n}, {j, n}]], {n,
10}]}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Karol A. Penson, Feb 09 2017
STATUS
approved