|
|
A282233
|
|
First series of Hankel determinants based on the products of neighboring Bell numbers.
|
|
0
|
|
|
1, 1, 6, 1055, 14606314, 33143919758680, 22267046989512672170336, 7285866264181337147045855103986688, 1781649668242877630192672905891678928849224925184, 473327995970000906910794932602675277099003301525093377217468301312, 190409117523115245360631492077956735203951134543617722726883256728186285522700472418304
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,3
|
|
LINKS
|
|
|
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
|
|
|
STATUS
|
approved
|
|
|
|