A282233 First series of Hankel determinants based on the products of neighboring Bell numbers.

1, 1, 6, 1055, 14606314, 33143919758680, 22267046989512672170336, 7285866264181337147045855103986688, 1781649668242877630192672905891678928849224925184, 473327995970000906910794932602675277099003301525093377217468301312, 190409117523115245360631492077956735203951134543617722726883256728186285522700472418304

Offset: 0

Author

Karol A. Penson, Feb 09 2017

Keywords

• nonn

Crossrefs

Cf. A278903

Programs

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}]}]