

A192572


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


3



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
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

0,5


LINKS

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


MATHEMATICA

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


PROG

(Maxima) makelist(sum((1)^(nk)*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



