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

Links

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

Mathematica

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

Prog

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

Crossrefs

Cf. A000110, A192570, A192571.

Sequence in context: A030137 A243080 A105309 * A300531 A097163 A117186

Adjacent sequences: A192569 A192570 A192571 * A192573 A192574 A192575

Keyword

nonn

Author

Emanuele Munarini, Jul 04 2011

Status

approved