%I #6 Feb 14 2017 09:51:48
%S 1,1,6,1055,14606314,33143919758680,22267046989512672170336,
%T 7285866264181337147045855103986688,
%U 1781649668242877630192672905891678928849224925184,473327995970000906910794932602675277099003301525093377217468301312,190409117523115245360631492077956735203951134543617722726883256728186285522700472418304
%N First series of Hankel determinants based on the products of neighboring Bell numbers.
%p with(LinearAlgebra), with(combinat):
%p h0:=(i,j)->bell(i+j-2)*bell(i+j-1);
%p seq(Determinant(Matrix(kk,kk,h0)),kk=0..10);
%t Flatten[{1,
%t Table[Det[
%t Table[BellB[i + j - 2]*BellB[i + j - 1], {i, n}, {j, n}]], {n,
%t 10}]}]
%Y Cf. A278903
%K nonn
%O 0,3
%A _Karol A. Penson_, Feb 09 2017