A192576 a(n) = sum(binomial(n,k)*floor(sqrt(Bell(k))),k=0..n).

1, 2, 4, 9, 22, 58, 163, 478, 1439, 4415, 13780, 43757, 141400, 465016, 1555961, 5294885, 18315089, 64357854, 229601019, 831132731, 3051030786, 11351968321, 42788503744, 163309466037, 630861836558, 2465577001903, 9745376900983

Offset: 0

Author

Emanuele Munarini, Jul 04 2011

Keywords

• nonn

Crossrefs

Cf. A192570, A192571, A192572, A192573, A192574.

The Bell numbers are A000110.

Programs

Mathematica

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

Maxima

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