A192572 a(n) = sum((-1)^(n-k)*floor(sqrt(Bell(k))),k=0..n).

1, 0, 1, 1, 2, 5, 9, 20, 44, 101, 239, 584, 1468, 3789, 10027, 27161, 75211, 212651, 613228, 1801879, 5390071, 16401436, 50730640, 159393146, 508408373, 1645330314, 5399614435, 17960973056, 60528130675

Offset: 0

Author

Emanuele Munarini, Jul 04 2011

Keywords

• nonn

Crossrefs

Cf. A000110, A192570, A192571.

Programs

Mathematica

Table[Sum[(-1)^(n-k)Floor[Sqrt[BellB[k]]],{k,0,n}],{n,0,100}]

Maxima

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