login
This site is supported by donations to The OEIS Foundation.

 

Logo

Many excellent designs for a new banner were submitted. We will use the best of them in rotation.

Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A087650 Sum_{k=0..n} (-1)^(n-k)*Bell(k). 4
1, 0, 2, 3, 12, 40, 163, 714, 3426, 17721, 98254, 580316, 3633281, 24011156, 166888166, 1216070379, 9264071768, 73600798036, 608476008123, 5224266196934, 46499892038438, 428369924118313, 4078345814329010, 40073660040755336 (list; graph; refs; listen; history; text; internal format)
OFFSET

0,3

LINKS

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

FORMULA

E.g.f.: exp(-x)*((exp(x)-1)*exp(exp(x)-1)+1).

a(n)= (-1)^n + Bell(n) - A000296(n), with Bell(n)=A000110(n). Wolfdieter Lang, Dec 01 2003

MATHEMATICA

f[n_] := Sum[ StirlingS2[n, k], {k, 1, n}]; Table[(-1)^n + Sum[(-1)^(n - k)*f[k], {k, 0, n}], {n, 0, 23}] (from Robert G. Wilson v)

Needs["DiscreteMath`Combinatorica`"]; Table[ Sum[(-1)^(n - k)*BellB[k], {k, 0, n}], {n, 0, 23}] (from Robert G. Wilson v)

(Maxima) makelist(sum((-1)^(n-k)*belln(k), k, 0, n), n, 0, 40); [Emanuele Munarini, Sep 27 2012]

CROSSREFS

Cf. A000110, A000296, A005001, A005493.

Sequence in context: A012310 A082526 A151368 * A177699 A012514 A012511

Adjacent sequences:  A087647 A087648 A087649 * A087651 A087652 A087653

KEYWORD

nonn

AUTHOR

Vladeta Jovovic, Sep 23 2003

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Transforms | Superseeker | Recent | More pages
The OEIS Community | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement .

Last modified April 24 13:28 EDT 2014. Contains 240983 sequences.