A192573 a(n) = Sum_{k=0..n} floor(sqrt(Bell(k)))*floor(sqrt(Bell(n-k))).

1, 2, 3, 6, 11, 24, 52, 112, 251, 574, 1347, 3242, 7996, 20202, 52245, 138200, 373640, 1031702, 2907207, 8353892, 24460864, 72931232, 221265823, 682632254, 2140211338, 6814954528, 22027143227, 72228405060, 240154754720

Offset: 0

Author

Emanuele Munarini, Jul 04 2011

Keywords

• nonn

Crossrefs

Cf. A192570, A192571, A192572.

Programs

Mathematica

Table[Sum[Floor[Sqrt[BellB[k]]]Floor[Sqrt[BellB[n-k]]],{k,0,n}],{n,0,100}]

Maxima

makelist(sum(floor(sqrt(belln(k)))*floor(sqrt(belln(n-k))),k,0,n),n,0,28);