cp's OEIS Frontend

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

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