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