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,3

Links

Table of n, a(n) for n=0..10.

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

Cf. A278903

Sequence in context: A159865 A370680 A004806 * A125536 A003763 A179853

Adjacent sequences: A282230 A282231 A282232 * A282234 A282235 A282236

Keyword

nonn

Author

Karol A. Penson, Feb 09 2017

Status

approved